Changeset 2730 for trunk/NEMOGCM/NEMO/TOP_SRC/PISCES
- Timestamp:
- 2011-04-08T13:14:00+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zprod.F90
r2715 r2730 327 327 #endif 328 328 329 IF( kt == nitend .AND. jnt == nrdttrc ) THEN329 IF( kt == nitend .AND. jnt == nrdttrc .AND. lwp ) THEN 330 330 WRITE(numout,*) 'Total PP (Gtc) :' 331 331 WRITE(numout,*) '-------------------- : ',tpp * 12. / 1.E12
Note: See TracChangeset
for help on using the changeset viewer.