- Timestamp:
- 2020-07-03T20:46:53+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/SBC/fldread.F90
r13247 r13248 130 130 !! * Substitutions 131 131 # include "do_loop_substitute.h90" 132 # include "domzgr_substitute.h90" 132 133 !!---------------------------------------------------------------------- 133 134 !! NEMO/OCE 4.0 , NEMO Consortium (2018) … … 611 612 zdhalf(jk) = zdhalf(jk-1) + e3v(ji,jj,jk-1,Kmm) 612 613 zdepth(jk) = zcoef * ( zdhalf(jk ) + 0.5_wp * e3vw(ji,jj,jk,Kmm)) & 613 &+ (1._wp-zcoef) * ( zdepth(jk-1) + e3vw(ji,jj,jk,Kmm))614 + (1._wp-zcoef) * ( zdepth(jk-1) + e3vw(ji,jj,jk,Kmm)) 614 615 END DO 615 616 END SELECT
Note: See TracChangeset
for help on using the changeset viewer.