Changeset 3773 for branches/2012
- Timestamp:
- 2013-02-07T12:06:58+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zprod.F90
r3295 r3773 341 341 zprod = rday * zprorca(ji,jj,jk) * zprnch(ji,jj,jk) * xlimphy(ji,jj,jk) 342 342 zprochln(ji,jj,jk) = chlcmin * 12. * zprorca (ji,jj,jk) 343 zprochln(ji,jj,jk) = zprochln(ji,jj,jk) + chlcnm * 12. * zprod / ( zpislopead(ji,jj,jk) * znanotot +rtrn) 343 zprochln(ji,jj,jk) = zprochln(ji,jj,jk) + chlcnm * 12. * zprod / & 344 & ( zpislopead(ji,jj,jk) * znanotot +rtrn) 344 345 ! production terms for diatomees ( chlorophyll ) 345 346 zdiattot = ediat(ji,jj,jk) * zstrn(ji,jj) 346 347 zprod = rday * zprorcad(ji,jj,jk) * zprdch(ji,jj,jk) * xlimdia(ji,jj,jk) 347 348 zprochld(ji,jj,jk) = chlcmin * 12. * zprorcad(ji,jj,jk) 348 zprochld(ji,jj,jk) = zprochld(ji,jj,jk) + chlcdm * 12. * zprod / ( zpislopead2(ji,jj,jk) * zdiattot +rtrn ) 349 zprochld(ji,jj,jk) = zprochld(ji,jj,jk) + chlcdm * 12. * zprod / & 350 & ( zpislopead2(ji,jj,jk) * zdiattot +rtrn ) 349 351 ENDIF 350 352 END DO … … 362 364 znanotot = enano(ji,jj,jk) * zstrn(ji,jj) 363 365 zprod = rday * zprorca(ji,jj,jk) * zprnch(ji,jj,jk) * trn(ji,jj,jk,jpphy) * xlimphy(ji,jj,jk) 364 zprochln(ji,jj,jk) = chlcnm * 144. * zprod / ( zpislopead(ji,jj,jk) * trn(ji,jj,jk,jpnch) * znanotot +rtrn) 366 zprochln(ji,jj,jk) = chlcnm * 144. * zprod / & 367 & ( zpislopead(ji,jj,jk) * trn(ji,jj,jk,jpnch) * znanotot +rtrn) 365 368 ! production terms for diatomees ( chlorophyll ) 366 369 zdiattot = ediat(ji,jj,jk) * zstrn(ji,jj) 367 370 zprod = rday * zprorcad(ji,jj,jk) * zprdch(ji,jj,jk) * trn(ji,jj,jk,jpdia) * xlimdia(ji,jj,jk) 368 zprochld(ji,jj,jk) = chlcdm * 144. * zprod / ( zpislopead2(ji,jj,jk) * trn(ji,jj,jk,jpdch) * zdiattot +rtrn ) 371 zprochld(ji,jj,jk) = chlcdm * 144. * zprod / & 372 & ( zpislopead2(ji,jj,jk) * trn(ji,jj,jk,jpdch) * zdiattot +rtrn ) 369 373 ENDIF 370 374 END DO
Note: See TracChangeset
for help on using the changeset viewer.