Changeset 4730 for branches/2014/dev_4728_CNRS04_coupled_interface/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
- Timestamp:
- 2014-07-25T09:39:23+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_4728_CNRS04_coupled_interface/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r4664 r4730 210 210 !! *** ROUTINE sbc_cpl_init *** 211 211 !! 212 !! ** Purpose : Initialisation of send and rec ieved information from212 !! ** Purpose : Initialisation of send and received information from 213 213 !! the atmospheric component 214 214 !! … … 1314 1314 END SELECT 1315 1315 1316 ! Ice Qsr penetration used (only?)in lim2 or lim3 1317 ! fraction of net shortwave radiation which is not absorbed in the thin surface layer 1318 ! and penetrates inside the ice cover ( Maykut and Untersteiner, 1971 ; Elbert anbd Curry, 1993 ) 1316 ! Surface transimission parameter io (Maykut Untersteiner , 1971 ; Ebert and Curry, 1993 ) 1317 ! Used for LIM2 and LIM3 1319 1318 ! Coupled case: since cloud cover is not received from atmosphere 1320 ! ===> defined as constant value -> definition done in sbc_cpl_init 1321 fr1_i0(:,:) = 0.18 1322 fr2_i0(:,:) = 0.82 1323 1319 ! ===> used prescribed cloud fraction representative for polar oceans in summer (0.81) 1320 fr1_i0(:,:) = ( 0.18 * ( 1.0 - cldf_ice ) + 0.35 * cldf_ice ) 1321 fr2_i0(:,:) = ( 0.82 * ( 1.0 - cldf_ice ) + 0.65 * cldf_ice ) 1324 1322 1325 1323 CALL wrk_dealloc( jpi,jpj, zcptn, ztmp, zicefr )
Note: See TracChangeset
for help on using the changeset viewer.