Changeset 5252 for branches/2015/dev_r5204_CNRS_PISCES_dcy
- Timestamp:
- 2015-05-04T11:13:12+02:00 (9 years ago)
- Location:
- branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO
- Files:
-
- 2 edited
-
LIM_SRC_3/limthd.F90 (modified) (1 diff)
-
OFF_SRC/dtadyn.F90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90
r5236 r5252 106 106 !------------------------------------------------------------------------! 107 107 ftr_ice(:,:,:) = 0._wp ! part of solar radiation transmitted through the ice 108 IF( l_trcdm2dc ) ftr_ice_mean(:,:,:) = 0._wp ! part of daily mean solar radiation absorbing inside the ice109 110 108 111 109 !-------------------- -
branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90
r5210 r5252 264 264 fr_i(:,:) = sf_dyn(jf_ice)%fnow(:,:,1) * tmask(:,:,1) ! Sea-ice fraction 265 265 qsr (:,:) = sf_dyn(jf_qsr)%fnow(:,:,1) * tmask(:,:,1) ! solar radiation 266 IF( ln_dm2dc ) qsr_mean(:,:) = qsr(:,:) ! daily mean solar radiation267 266 IF( ln_dynrnf ) & 268 267 rnf (:,:) = sf_dyn(jf_rnf)%fnow(:,:,1) * tmask(:,:,1) ! river runoffs
Note: See TracChangeset
for help on using the changeset viewer.
