Changeset 3979


Ignore:
Timestamp:
2013-07-16T16:45:31+02:00 (7 years ago)
Author:
clem
Message:

bug correction on solar flux penetration

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_r3406_CNRS_LIM3/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90

    r3963 r3979  
    184184            pfrld(ji,jj)   = 1.0 - at_i(ji,jj) 
    185185            zinda          = tms(ji,jj) * (1.0 - MAX( zzero , SIGN( zone , - at_i(ji,jj) ) ) ) 
    186             ! 
     186            ! clem: set up ocean and ice attenuation to 1 (i.e. no attenuation) when there is no ice (zinda = 0) 
     187            iatte(ji,jj) = (1.0 - zinda ) + zinda * iatte(ji,jj) 
     188            oatte(ji,jj) = (1.0 - zinda ) + zinda * oatte(ji,jj) 
    187189            !           !  solar irradiance transmission at the mixed layer bottom and used in the lead heat budget 
    188190            !           !  practically no "direct lateral ablation" 
Note: See TracChangeset for help on using the changeset viewer.