- Timestamp:
- 2014-04-06T17:47:31+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_CNRS0_NOC1_LDF/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zlys.F90
r4147 r4617 81 81 DO jn = 1, 5 ! BEGIN OF ITERATION 82 82 ! 83 !CDIR NOVERRCHK84 83 DO jk = 1, jpkm1 85 !CDIR NOVERRCHK86 84 DO jj = 1, jpj 87 !CDIR NOVERRCHK88 85 DO ji = 1, jpi 89 86 zfact = rhop(ji,jj,jk) / 1000. + rtrn
Note: See TracChangeset
for help on using the changeset viewer.