Changeset 7277 for branches/2016/dev_CNRS_2016/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

Timestamp:

2016-11-21T09:55:07+01:00 (8 years ago)

Author:

flavoni

Message:

update 2016 branch with simplif-2

File:

• branches/2016/dev_CNRS_2016/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90 (modified) (3 diffs)

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

@@ -232 +232 @@
                END DO
             END DO
-            IF( cp_cfg == "orca" .AND. jp_cfg == 3 ) THEN   ! ORCA2: Suppress ztilde in the Foxe Basin for ORCA2
+            IF( cn_cfg == "orca" .AND. nn_cfg == 3 ) THEN   ! ORCA2: Suppress ztilde in the Foxe Basin for ORCA2
                ii0 = 103   ;   ii1 = 111       
                ij0 = 128   ;   ij1 = 135   ;   
@@ -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
-               IF( ln_vvl_ztilde ) hdiv_lf(:,:,:) = 0.0_wp
+               tilde_e3t_b(:,:,:) = 0._wp
+               tilde_e3t_n(:,:,:) = 0._wp
+               IF( ln_vvl_ztilde ) hdiv_lf(:,:,:) = 0._wp
             END IF
          ENDIF