Changeset 4302 for branches/2013/dev_MERGE_2013
- Timestamp:
- 2013-11-20T20:04:02+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90
r4301 r4302 436 436 sshn(:,:) = sshn(:,:) - snwice_mass(:,:) * r1_rau0 437 437 sshb(:,:) = sshb(:,:) - snwice_mass(:,:) * r1_rau0 438 #if defined key_vvl ! Is this necessary? clem: yes for compilation purpose 438 #if defined key_vvl 439 ! key_vvl necessary? clem: yes for compilation purpose 439 440 DO jk = 1,jpkm1 ! adjust initial vertical scale factors 440 441 fse3t_n(:,:,jk) = e3t_0(:,:,jk)*( 1._wp + sshn(:,:)*tmask(:,:,1)/(ht_0(:,:) + 1.0 - tmask(:,:,1)) )
Note: See TracChangeset
for help on using the changeset viewer.