Changeset 3980
- Timestamp:
- 2013-07-16T16:46:20+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3406_CNRS_LIM3/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90
r3952 r3980 239 239 zzc2 = zcoef * EXP( - fse3t(ji,jj,1) * zekg(ji,jj) ) 240 240 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) 243 243 END DO 244 244 END DO
Note: See TracChangeset
for help on using the changeset viewer.