- Timestamp:
- 2012-11-27T16:42:15+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zprod.F90
r3481 r3686 342 342 zprod = rday * zprorca(ji,jj,jk) * zprnch(ji,jj,jk) * xlimphy(ji,jj,jk) 343 343 zprochln(ji,jj,jk) = chlcmin * 12. * zprorca (ji,jj,jk) 344 zprochln(ji,jj,jk) = zprochln(ji,jj,jk) + (chlcnm-chlcmin) * 12. * zprod / ( zpislopead(ji,jj,jk) * znanotot +rtrn) 344 zprochln(ji,jj,jk) = zprochln(ji,jj,jk) + (chlcnm-chlcmin) * 12. * zprod / & 345 & ( zpislopead(ji,jj,jk) * znanotot +rtrn) 345 346 ! production terms for diatomees ( chlorophyll ) 346 347 zdiattot = ediat(ji,jj,jk) * zstrn(ji,jj) 347 348 zprod = rday * zprorcad(ji,jj,jk) * zprdch(ji,jj,jk) * xlimdia(ji,jj,jk) 348 349 zprochld(ji,jj,jk) = chlcmin * 12. * zprorcad(ji,jj,jk) 349 zprochld(ji,jj,jk) = zprochld(ji,jj,jk) + (chlcdm-chlcmin) * 12. * zprod / ( zpislopead2(ji,jj,jk) * zdiattot +rtrn ) 350 zprochld(ji,jj,jk) = zprochld(ji,jj,jk) + (chlcdm-chlcmin) * 12. * zprod / & 351 & ( zpislopead2(ji,jj,jk) * zdiattot +rtrn ) 350 352 ENDIF 351 353 END DO
Note: See TracChangeset
for help on using the changeset viewer.