Changeset 4726 for branches/2014/dev_r4650_UKMO2_ice_shelves/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

Timestamp:

2014-07-23T18:27:21+02:00 (10 years ago)

Author:

mathiot

Message:

ISF branch: change name of 2 variables (icedep => risfdep and lmask => ssmask), cosmetic changes and add ldfslp key

File:

• branches/2014/dev_r4650_UKMO2_ice_shelves/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90 (modified) (2 diffs)

branches/2014/dev_r4650_UKMO2_ice_shelves/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

@@ -410 +410 @@
       
       ! compute rhd at the ice/oce interface (ice shelf side)
-      CALL eos(ztstop,icedep,zrhdtop_isf)
+      CALL eos(ztstop,risfdep,zrhdtop_isf)
 
       ! compute rhd at the ice/oce interface (ocean side)
@@ -420 +420 @@
         END DO
       END DO
-      CALL eos(ztstop,icedep,zrhdtop_oce)
+      CALL eos(ztstop,risfdep,zrhdtop_oce)
       !
       ! Surface value + ice shelf gradient