- Timestamp:
- 2015-04-20T15:27:29+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/LIM_SRC_2/limsbc_2.F90
r5225 r5226 124 124 END SELECT ! 125 125 126 ! make calls for heat fluxes before it is modified 127 IF( iom_use('qsr_oce') ) CALL iom_put( "qsr_oce" , qsr(:,:) * pfrld(:,:) ) ! solar flux at ocean surface 128 IF( iom_use('qsr_ice') ) CALL iom_put( "qsr_ice" , qsr_ice(:,:,1) * pfrld(:,:) ) ! solar flux at ice surface 129 IF( l_trcdm2dc ) THEN 130 IF( iom_use('qsr_oce_mean') ) CALL iom_put( "qsr_oce_mean" , qsr_mean(:,:) * pfrld(:,:) ) ! daily mean solar flux at ocean surface 131 IF( iom_use('qsr_ice_mean') ) CALL iom_put( "qsr_ice_mean" , qsr_ice_mean(:,:,1) * pfrld(:,:) ) ! daily mean solar flux at ice surface 132 ENDIF 126 133 !------------------------------------------! 127 134 ! heat flux at the ocean surface !
Note: See TracChangeset
for help on using the changeset viewer.