Changeset 9059 for branches/2017
- Timestamp:
- 2017-12-14T16:55:30+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90
r9023 r9059 911 911 END DO 912 912 END DO 913 914 913 ! 915 914 ELSE 916 915 ! 917 e3t_b(:,:,:) = e3t_0(:,:,:) 918 e3t_n(:,:,:) = e3t_0(:,:,:) 919 sshn(:,:) = 0.0_wp 916 ! Just to read set ssh in fact, called latter once vertical grid 917 ! is set up: 918 CALL usr_def_istate( gdept_0, tmask, tsb, ub, vb, sshb ) 919 ! 920 DO jk=1,jpk 921 e3t_b(:,:,jk) = e3t_0(:,:,jk) * ( ht_0(:,:) + sshb(:,:) ) & 922 & / ( ht_0(:,:) + 1._wp -ssmask(:,:) ) * tmask(:,:,jk) 923 END DO 924 e3t_n(:,:,:) = e3t_b(:,:,:) 920 925 ! 921 926 END IF ! end of ll_wd edits
Note: See TracChangeset
for help on using the changeset viewer.