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 4082 – NEMO

Changeset 4082


Ignore:
Timestamp:
2013-10-21T12:05:50+02:00 (11 years ago)
Author:
smasson
Message:

trunk: bugfix in scccpl for sea-ice vai-riable, see #1139

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r4068 r4082  
    467467         CALL ctl_stop( 'sbc_cpl_init: namsbc_cpl namelist mismatch between sn_rcv_qns%cldes and sn_rcv_dqnsdt%cldes' ) 
    468468      !                                                      ! ------------------------- ! 
    469       !                                                      !    Ice Qsr penetration    !    
    470       !                                                      ! ------------------------- ! 
    471       ! fraction of net shortwave radiation which is not absorbed in the thin surface layer  
    472       ! and penetrates inside the ice cover ( Maykut and Untersteiner, 1971 ; Elbert anbd Curry, 1993 ) 
    473       ! Coupled case: since cloud cover is not received from atmosphere  
    474       !               ===> defined as constant value -> definition done in sbc_cpl_init 
    475       fr1_i0(:,:) = 0.18 
    476       fr2_i0(:,:) = 0.82 
    477       !                                                      ! ------------------------- ! 
    478469      !                                                      !      10m wind module      !    
    479470      !                                                      ! ------------------------- ! 
     
    13361327      END SELECT 
    13371328 
     1329      !    Ice Qsr penetration used (only?)in lim2 or lim3  
     1330      ! fraction of net shortwave radiation which is not absorbed in the thin surface layer  
     1331      ! and penetrates inside the ice cover ( Maykut and Untersteiner, 1971 ; Elbert anbd Curry, 1993 ) 
     1332      ! Coupled case: since cloud cover is not received from atmosphere  
     1333      !               ===> defined as constant value -> definition done in sbc_cpl_init 
     1334      fr1_i0(:,:) = 0.18 
     1335      fr2_i0(:,:) = 0.82 
     1336 
     1337 
    13381338      CALL wrk_dealloc( jpi,jpj, zcptn, ztmp, zicefr ) 
    13391339      ! 
Note: See TracChangeset for help on using the changeset viewer.