- Timestamp:
- 2011-02-15T12:58:59+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/TAM_V3_0/NEMOTAM/OPATAM_SRC/DYN/dynzdf_imp_tam.F90
r1885 r2587 126 126 DO ji = fs_2, fs_jpim1 ! vector opt. 127 127 zcoef = - p2dt / fse3u(ji,jj,jk) 128 zwi(ji,jj,jk) = zcoef * avmu(ji,jj,jk ) / fse3uw(ji,jj,jk ) 128 zwi(ji,jj,jk) = zcoef * avmu(ji,jj,jk ) / fse3uw(ji,jj,jk ) * umask(ji,jj,jk) 129 129 zzws = zcoef * avmu(ji,jj,jk+1) / fse3uw(ji,jj,jk+1) 130 130 zws(ji,jj,jk) = zzws * umask(ji,jj,jk+1)
Note: See TracChangeset
for help on using the changeset viewer.