Changeset 13237 for NEMO/trunk/src/OCE/SBC/fldread.F90
- Timestamp:
- 2020-07-03T11:12:53+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/SBC/fldread.F90
r13226 r13237 127 127 !! * Substitutions 128 128 # include "do_loop_substitute.h90" 129 # include "domzgr_substitute.h90" 129 130 !!---------------------------------------------------------------------- 130 131 !! NEMO/OCE 4.0 , NEMO Consortium (2018) … … 632 633 zdhalf(jk) = zdhalf(jk-1) + e3v(ji,jj,jk-1,Kmm) 633 634 zdepth(jk) = zcoef * ( zdhalf(jk ) + 0.5_wp * e3vw(ji,jj,jk,Kmm)) & 634 &+ (1._wp-zcoef) * ( zdepth(jk-1) + e3vw(ji,jj,jk,Kmm))635 + (1._wp-zcoef) * ( zdepth(jk-1) + e3vw(ji,jj,jk,Kmm)) 635 636 END DO 636 637 END SELECT
Note: See TracChangeset
for help on using the changeset viewer.