Changeset 4302 for branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90

Timestamp:

2013-11-20T20:04:02+01:00 (10 years ago)

Author:

clem

Message:

 

File:

• branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90 (modified) (1 diff)

branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90

@@ -436 +436 @@
             sshn(:,:) = sshn(:,:) - snwice_mass(:,:) * r1_rau0
             sshb(:,:) = sshb(:,:) - snwice_mass(:,:) * r1_rau0
-#if defined key_vvl            ! Is this necessary? clem: yes for compilation purpose
+#if defined key_vvl            
+           ! key_vvl necessary? clem: yes for compilation purpose
             DO jk = 1,jpkm1                     ! adjust initial vertical scale factors
                fse3t_n(:,:,jk) = e3t_0(:,:,jk)*( 1._wp + sshn(:,:)*tmask(:,:,1)/(ht_0(:,:) + 1.0 - tmask(:,:,1)) )