- Timestamp:
- 2017-05-09T12:14:45+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zopt.F90
r6966 r8003 251 251 IF( iom_use( "PAR" ) ) CALL iom_put( "PAR" , emoy(:,:,:) * tmask(:,:,:) ) ! Photosynthetically Available Radiation 252 252 ENDIF 253 ELSE254 IF( ln_diatrc ) THEN ! save output diagnostics255 trc2d(:,:, jp_pcs0_2d + 10) = heup(:,: ) * tmask(:,:,1)256 trc3d(:,:,:,jp_pcs0_3d + 3) = etot(:,:,:) * tmask(:,:,:)257 ENDIF258 253 ENDIF 259 254 !
Note: See TracChangeset
for help on using the changeset viewer.