Changeset 5226
- Timestamp:
- 2015-04-20T15:27:29+02:00 (9 years ago)
- Location:
- branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO
- Files:
-
- 4 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 ! -
branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r5225 r5226 261 261 IF( ln_ssr ) CALL sbc_ssr_init ! Sea-Surface Restoring initialisation 262 262 ! 263 IF( ln_rnf ) CALL sbc_rnf_init ! Runof initialisation 264 ! 263 265 IF( nn_ice == 3 ) CALL sbc_lim_init ! LIM3 initialisation 264 266 … … 417 419 CALL iom_put( "qns" , qns ) ! solar heat flux 418 420 CALL iom_put( "qsr" , qsr ) ! solar heat flux 421 IF( l_trcdm2dc ) CALL iom_put( "qsr_mean" , qsr_mean ) ! daily mean solar heat flux 419 422 IF( nn_ice > 0 ) CALL iom_put( "ice_cover", fr_i ) ! ice fraction 420 423 CALL iom_put( "taum" , taum ) ! wind stress module -
branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90
r4990 r5226 104 104 ! 105 105 CALL wrk_alloc( jpi,jpj, ztfrz) 106 107 !108 IF( kt == nit000 ) CALL sbc_rnf_init ! Read namelist and allocate structures109 106 110 107 ! ! ---------------------------------------- ! -
branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsbc.F90
r5206 r5226 366 366 rivalkinput = 0._wp 367 367 END IF 368 369 368 ! nutrient input from dust 370 369 ! ------------------------
Note: See TracChangeset
for help on using the changeset viewer.