New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 4083 – NEMO

Changeset 4083


Ignore:
Timestamp:
2013-10-21T12:08:54+02:00 (10 years ago)
Author:
smasson
Message:

v3_4_STABLE:bugfix in scccpl for sea-ice variable, see #1139

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r4069 r4083  
    461461         CALL ctl_stop( 'sbc_cpl_init: namsbc_cpl namelist mismatch between sn_rcv_qns%cldes and sn_rcv_dqnsdt%cldes' ) 
    462462      !                                                      ! ------------------------- ! 
    463       !                                                      !    Ice Qsr penetration    !    
    464       !                                                      ! ------------------------- ! 
    465       ! fraction of net shortwave radiation which is not absorbed in the thin surface layer  
    466       ! and penetrates inside the ice cover ( Maykut and Untersteiner, 1971 ; Elbert anbd Curry, 1993 ) 
    467       ! Coupled case: since cloud cover is not received from atmosphere  
    468       !               ===> defined as constant value -> definition done in sbc_cpl_init 
    469       fr1_i0(:,:) = 0.18 
    470       fr2_i0(:,:) = 0.82 
    471       !                                                      ! ------------------------- ! 
    472463      !                                                      !      10m wind module      !    
    473464      !                                                      ! ------------------------- ! 
     
    13211312      END SELECT 
    13221313 
     1314      !    Ice Qsr penetration used (only?)in lim2 or lim3  
     1315      ! fraction of net shortwave radiation which is not absorbed in the thin surface layer  
     1316      ! and penetrates inside the ice cover ( Maykut and Untersteiner, 1971 ; Elbert anbd Curry, 1993 ) 
     1317      ! Coupled case: since cloud cover is not received from atmosphere  
     1318      !               ===> defined as constant value -> definition done in sbc_cpl_init 
     1319      fr1_i0(:,:) = 0.18 
     1320      fr2_i0(:,:) = 0.82 
     1321 
    13231322      CALL wrk_dealloc( jpi,jpj, zcptn, ztmp, zicefr ) 
    13241323      ! 
Note: See TracChangeset for help on using the changeset viewer.