Changeset 5862 for branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/LIM_SRC_2

Timestamp:

2015-11-05T15:03:28+01:00 (8 years ago)

Author:

gm

Message:

#1613: vvl by default: non-vvl: initialize _b,n,a scale factors with _0 arrays

File:

• branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/LIM_SRC_2/limsbc_2.F90 (modified) (2 diffs)

branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/LIM_SRC_2/limsbc_2.F90

@@ -469 +469 @@
          sshn(:,:) = sshn(:,:) - snwice_mass(:,:) * r1_rau0
          sshb(:,:) = sshb(:,:) - snwice_mass(:,:) * r1_rau0
+!!gm  like for lim3 :
+#if defined key_vvl            
+!!gm
          do jk = 1,jpkm1                     ! adjust initial vertical scale factors
           e3t_n(:,:,jk) = e3t_0(:,:,jk)*( 1._wp + sshn(:,:)*tmask(:,:,1)/(ht_0(:,:) + 1.0 - tmask(:,:,1)) )
@@ -500 +503 @@
             gde3w_n(:,:,jk) = gdept_n(:,:,jk  ) - sshn   (:,:)
          END DO
+!!gm
+#endif
+!!gm
       ENDIF
       !