- Timestamp:
- 2015-07-20T19:43:15+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5589_is_oce_cpl/NEMOGCM/NEMO/OPA_SRC/DIA/diaharm.F90
r5586 r5619 197 197 ! Elevation 198 198 ana_temp(ji,jj,nhc,1) = ana_temp(ji,jj,nhc,1) + ztemp*sshn(ji,jj)*tmask_i(ji,jj) 199 ana_temp(ji,jj,nhc,2) = ana_temp(ji,jj,nhc,2) + ztemp*un_b(ji,jj)* umask_i(ji,jj)200 ana_temp(ji,jj,nhc,3) = ana_temp(ji,jj,nhc,3) + ztemp*vn_b(ji,jj)* vmask_i(ji,jj)199 ana_temp(ji,jj,nhc,2) = ana_temp(ji,jj,nhc,2) + ztemp*un_b(ji,jj)*ssumask(ji,jj) 200 ana_temp(ji,jj,nhc,3) = ana_temp(ji,jj,nhc,3) + ztemp*vn_b(ji,jj)*ssvmask(ji,jj) 201 201 END DO 202 202 END DO … … 326 326 X1= ana_amp(ji,jj,jh,1) 327 327 X2=-ana_amp(ji,jj,jh,2) 328 out_u(ji,jj, jh) = X1 * umask_i(ji,jj)329 out_u(ji,jj,nb_ana+jh) = X2 * umask_i(ji,jj)328 out_u(ji,jj, jh) = X1 * ssumask(ji,jj) 329 out_u(ji,jj,nb_ana+jh) = X2 * ssumask(ji,jj) 330 330 ENDDO 331 331 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.