Changeset 6667 for branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

Timestamp:

2016-06-06T07:57:00+02:00 (8 years ago)

Author:

gm

Message:

#1692 - branch SIMPLIF_2_usrdef: reduced domain_cfg.nc file: GYRE OK using usrdef or reading file

File:

• branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90 (modified) (2 diffs)

branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

@@ -885 +885 @@
                      e3t_n(ji,jj,:) = 0.5_wp * rn_wdmin1 
                      e3t_a(ji,jj,:) = 0.5_wp * rn_wdmin1 
-                     sshb(ji,jj) = rn_wdmin1 - bathy(ji,jj)
-                     sshn(ji,jj) = rn_wdmin1 - bathy(ji,jj)
-                     ssha(ji,jj) = rn_wdmin1 - bathy(ji,jj)
+                     sshb(ji,jj) = rn_wdmin1 - ht_0(ji,jj)           !!gm I don't understand that !
+                     sshn(ji,jj) = rn_wdmin1 - ht_0(ji,jj)
+                     ssha(ji,jj) = rn_wdmin1 - ht_0(ji,jj)
                   ENDIF
                 ENDDO
@@ -894 +894 @@
 
             IF( ln_vvl_ztilde .OR. ln_vvl_layer) THEN
-               tilde_e3t_b(:,:,:) = 0.0_wp
-               tilde_e3t_n(:,:,:) = 0.0_wp
+               tilde_e3t_b(:,:,:) = 0._wp
+               tilde_e3t_n(:,:,:) = 0._wp
                IF( ln_vvl_ztilde ) hdiv_lf(:,:,:) = 0._wp
             END IF