- Timestamp:
- 2013-11-07T11:19:49+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r4161 r4162 373 373 ! 374 374 IF( TRIM( sn_rcv_tau%cldes ) /= 'oce and ice' ) THEN ! 'oce and ice' case ocean stress on ocean mesh used 375 srcv(jpr_it z1:jpr_itz2)%laction = .FALSE. ! ice components not received (itx1 and ity1 used later)375 srcv(jpr_itx1:jpr_itz2)%laction = .FALSE. ! ice components not received 376 376 srcv(jpr_itx1)%clgrid = 'U' ! ocean stress used after its transformation 377 377 srcv(jpr_ity1)%clgrid = 'V' ! i.e. it is always at U- & V-points for i- & j-comp. resp. … … 392 392 SELECT CASE( TRIM( sn_rcv_emp%cldes ) ) 393 393 CASE( 'oce only' ) ; srcv( jpr_oemp )%laction = .TRUE. 394 CASE( 'conservative' ) ; srcv( (/jpr_rain, jpr_snow, jpr_ievp, jpr_tevp/) )%laction = .TRUE. 394 CASE( 'conservative' ) 395 srcv( (/jpr_rain, jpr_snow, jpr_ievp, jpr_tevp/) )%laction = .TRUE. 396 IF ( k_ice <= 1 ) srcv(jpr_ivep)%laction = .FALSE. 395 397 CASE( 'oce and ice' ) ; srcv( (/jpr_ievp, jpr_sbpr, jpr_semp, jpr_oemp/) )%laction = .TRUE. 396 398 CASE default ; CALL ctl_stop( 'sbc_cpl_init: wrong definition of sn_rcv_emp%cldes' ) … … 450 452 CALL ctl_stop( 'sbc_cpl_init: namsbc_cpl namelist mismatch between sn_rcv_qns%cldes and sn_rcv_dqnsdt%cldes' ) 451 453 ! ! ------------------------- ! 452 ! ! Ice Qsr penetration !453 ! ! ------------------------- !454 ! fraction of net shortwave radiation which is not absorbed in the thin surface layer455 ! and penetrates inside the ice cover ( Maykut and Untersteiner, 1971 ; Elbert anbd Curry, 1993 )456 ! Coupled case: since cloud cover is not received from atmosphere457 ! ===> defined as constant value -> definition done in sbc_cpl_init458 IF ( ALLOCATED (fr1_i0)) fr1_i0 (:,:) = 0.18459 IF ( ALLOCATED (fr2_i0)) fr2_i0 (:,:) = 0.82460 ! ! ------------------------- !461 454 ! ! 10m wind module ! 462 455 ! ! ------------------------- ! … … 493 486 ! Allocate taum part of frcv which is used even when not received as coupling field 494 487 IF ( .NOT. srcv(jpr_taum)%laction ) ALLOCATE( frcv(jpr_taum)%z3(jpi,jpj,srcv(jn)%nct) ) 488 ! Allocate itx1 and ity1 as they are used in sbc_cpl_ice_tau even if srcv(jpr_itx1)%laction = .FALSE. 489 IF( k_ice /= 0 ) THEN 490 IF ( .NOT. srcv(jpr_itx1)%laction ) ALLOCATE( frcv(jpr_itx1)%z3(jpi,jpj,srcv(jn)%nct) ) 491 IF ( .NOT. srcv(jpr_ity1)%laction ) ALLOCATE( frcv(jpr_ity1)%z3(jpi,jpj,srcv(jn)%nct) ) 492 END IF 495 493 496 494 ! ================================ ! … … 1316 1314 END SELECT 1317 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 ) 1319 ! 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 1324 1318 1325 CALL wrk_dealloc( jpi,jpj, zcptn, ztmp, zicefr ) 1319 1326 !
Note: See TracChangeset
for help on using the changeset viewer.