Changeset 7189 for branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/TOOLS/DOMAINcfg/src/domzgr.f90

Timestamp:

2016-11-04T08:17:27+01:00 (7 years ago)

Author:

gm

Message:

#1692 - branch SIMPLIF_2_usrdef: e3.=dk[dep.] TOOLS update + domzgr style

File:

• branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/TOOLS/DOMAINcfg/src/domzgr.f90 (modified) (1 diff)

branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/TOOLS/DOMAINcfg/src/domzgr.f90

@@ -314 +314 @@
       ENDIF
 
-      IF ( ln_isfcav ) THEN
-! need to be like this to compute the pressure gradient with ISF. If not, level beneath the ISF are not aligned (sum(e3t) /= depth)
-! define e3t_0 and e3w_0 as the differences between gdept and gdepw respectively
+      IF ( ln_isfcav .OR. ln_e2_dep ) THEN      ! e3. = dk[gdep]   
+         !
+!==>>>   need to be like this to compute the pressure gradient with ISF. 
+!        If not, level beneath the ISF are not aligned (sum(e3t) /= depth)
+!        define e3t_0 and e3w_0 as the differences between gdept and gdepw respectively
+!
          DO jk = 1, jpkm1
             e3t_1d(jk) = gdepw_1d(jk+1)-gdepw_1d(jk)