Changeset 5230 for branches/2015/dev_r5204_CNRS_PISCES_dcy
- Timestamp:
- 2015-04-22T09:59:58+02:00 (9 years ago)
- Location:
- branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r5227 r5230 418 418 CALL iom_put( "qns" , qns ) ! solar heat flux 419 419 CALL iom_put( "qsr" , qsr ) ! solar heat flux 420 IF( l_trcdm2dc ) CALL iom_put( "qsr_mean" , qsr_mean ) ! daily mean solar heat flux421 420 IF( nn_ice > 0 ) CALL iom_put( "ice_cover", fr_i ) ! ice fraction 422 421 CALL iom_put( "taum" , taum ) ! wind stress module -
branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zopt.F90
r5206 r5230 215 215 IF( jnt == nrdttrc ) THEN 216 216 IF( iom_use( "Heup" ) ) CALL iom_put( "Heup", heup(:,: ) * tmask(:,:,1) ) ! euphotic layer deptht 217 IF( iom_use( "PAR" ) ) CALL iom_put( "PAR" , emoy(:,:,:) * tmask(:,:,:) ) ! Photosynthetically Available Radiation217 IF( iom_use( "PAR" ) ) CALL iom_put( "PAR" , zpar(:,:,:) * tmask(:,:,:) ) ! Photosynthetically Available Radiation 218 218 ENDIF 219 219 ELSE
Note: See TracChangeset
for help on using the changeset viewer.