Changeset 11108 for NEMO/releases/release-4.0/src/TOP/PISCES/P4Z/p4zpoc.F90
- Timestamp:
- 2019-06-14T13:41:18+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/releases/release-4.0/src/TOP/PISCES/P4Z/p4zpoc.F90
r10956 r11108 102 102 ! particle scheme. Does not work with Kriest parameterization. 103 103 ! ----------------------------------------------------------------------- 104 ztremint(:,:,:) = zremigoc(:,:,:) 104 105 DO jk = 2, jpkm1 105 106 DO jj = 1, jpj … … 285 286 ! layer, this spectrum is supposed to be uniform. 286 287 ! --------------------------------------------------------------------- 288 ztremint(:,:,:) = zremigoc(:,:,:) 287 289 DO jk = 1, jpkm1 288 290 DO jj = 1, jpj
Note: See TracChangeset
for help on using the changeset viewer.