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 3980 for branches/2013/dev_r3406_CNRS_LIM3/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90 – NEMO

Ignore:
Timestamp:
2013-07-16T16:46:20+02:00 (11 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/OPA_SRC/TRA/traqsr.F90

    r3952 r3980  
    239239                        zzc2 = zcoef  * EXP( - fse3t(ji,jj,1) * zekg(ji,jj) ) 
    240240                        zzc3 = zcoef  * EXP( - fse3t(ji,jj,1) * zekr(ji,jj) ) 
    241                         oatte(ji,jj) = ( 1.0 - ( zzc0 + zzc1 + zzc2  + zzc3  ) ) * tmask(ji,jj,2)  
    242                         iatte(ji,jj) = ( 1.0 - ( zzc0 + zzc1 + zcoef + zcoef ) ) * tmask(ji,jj,2) 
     241                        oatte(ji,jj) = 1.0 - ( zzc0 + zzc1 + zzc2  + zzc3 ) * tmask(ji,jj,2)  
     242                        iatte(ji,jj) = 1.0 - ( zzc0 + zzc1 + zcoef + zcoef ) * tmask(ji,jj,2) 
    243243                     END DO 
    244244                  END DO 
Note: See TracChangeset for help on using the changeset viewer.