From b208107e34b14c2d4c30c602b76ac66a50e39681 Mon Sep 17 00:00:00 2001 From: kvrigor Date: Fri, 6 May 2022 17:54:43 +0200 Subject: [PATCH] Removed optional argument var_noshape in oasis_def_var Starting OASIS3-MCT v5.0, `var_noshape` can be removed. --- src/clm5/oasis3/oas_defineMod.F90 | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/src/clm5/oasis3/oas_defineMod.F90 b/src/clm5/oasis3/oas_defineMod.F90 index 3ada7a99d1..724ae4a816 100644 --- a/src/clm5/oasis3/oas_defineMod.F90 +++ b/src/clm5/oasis3/oas_defineMod.F90 @@ -12,7 +12,6 @@ subroutine oas_definitions_init(bounds) use spmdMod , only : masterproc use clm_varpar , only : nlevsoi, nlevgrnd use decompMod , only : bounds_type, ldecomp - use domainMod , only : ldomain use oas_vardefMod type(bounds_type) , intent(in) :: bounds ! start and end gridcell indices for this MPI task @@ -26,7 +25,6 @@ subroutine oas_definitions_init(bounds) ! oasis_def_var integer :: var_nodims(2) ! var dimension parameters - integer :: var_shape(1) ! unused dummy input to oasis_def_var if (masterproc) then call define_grid() @@ -75,11 +73,11 @@ subroutine oas_definitions_init(bounds) var_nodims(1) = 1 ! unused var_nodims(2) = nlevsoi ! number of fields in a bundle - call oasis_def_var(oas_et_loss_id, "ECLM_ET", grid_id, var_nodims, OASIS_Out, var_shape, OASIS_Real, ierror) + call oasis_def_var(oas_et_loss_id, "ECLM_ET", grid_id, var_nodims, OASIS_Out, OASIS_Real, ierror) var_nodims(2) = nlevgrnd ! number of fields in a bundle - call oasis_def_var(oas_sat_id, "ECLM_SAT", grid_id, var_nodims, OASIS_In, var_shape, OASIS_Real, ierror) - call oasis_def_var(oas_psi_id, "ECLM_PSI", grid_id, var_nodims, OASIS_In, var_shape, OASIS_Real, ierror) + call oasis_def_var(oas_sat_id, "ECLM_SAT", grid_id, var_nodims, OASIS_In, OASIS_Real, ierror) + call oasis_def_var(oas_psi_id, "ECLM_PSI", grid_id, var_nodims, OASIS_In, OASIS_Real, ierror) ! End definition phase call oasis_enddef(ierror)