Removed optional argument var_noshape in oasis_def_var

Starting OASIS3-MCT v5.0, `var_noshape` can be removed.
HPSCTerrSys · May 6, 2022 · b208107 · b208107
1 parent 3c1643f
commit b208107
Showing 1 changed file with 3 additions and 5 deletions.
diff --git 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)