- Timestamp:
- 2017-12-01T18:44:09+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zopt.F90
r7981 r8882 119 119 ! ! -------------- 120 120 neln(:,:) = 1 ! euphotic layer level 121 DO jk = 1, jpkm1 121 DO jk = 1, jpkm1 ! (i.e. 1rst T-level strictly below EL bottom) 122 122 DO jj = 1, jpj 123 123 DO ji = 1, jpi … … 147 147 END SUBROUTINE p2z_opt 148 148 149 149 150 SUBROUTINE p2z_opt_init 150 151 !!----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.