- Timestamp:
- 2015-04-07T16:22:54+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5151_UKMO_ISF/NEMOGCM/NEMO/OPA_SRC/DIA/diaharm.F90
r4990 r5200 198 198 ana_temp(ji,jj,nhc,1) = ana_temp(ji,jj,nhc,1) + ztemp*sshn(ji,jj) *tmask_i(ji,jj) 199 199 #if defined key_dynspg_ts 200 ana_temp(ji,jj,nhc,2) = ana_temp(ji,jj,nhc,2) + ztemp*un_b(ji,jj)*hur(ji,jj)* umask_i(ji,jj)201 ana_temp(ji,jj,nhc,3) = ana_temp(ji,jj,nhc,3) + ztemp*vn_b(ji,jj)*hvr(ji,jj)* vmask_i(ji,jj)200 ana_temp(ji,jj,nhc,2) = ana_temp(ji,jj,nhc,2) + ztemp*un_b(ji,jj)*hur(ji,jj)*ssumask(ji,jj) 201 ana_temp(ji,jj,nhc,3) = ana_temp(ji,jj,nhc,3) + ztemp*vn_b(ji,jj)*hvr(ji,jj)*ssvmask(ji,jj) 202 202 #endif 203 203 END DO … … 328 328 X1= ana_amp(ji,jj,jh,1) 329 329 X2=-ana_amp(ji,jj,jh,2) 330 out_u(ji,jj, jh) = X1 * umask_i(ji,jj)331 out_u(ji,jj,nb_ana+jh) = X2 * umask_i(ji,jj)330 out_u(ji,jj, jh) = X1 * ssumask(ji,jj) 331 out_u(ji,jj,nb_ana+jh) = X2 * ssumask(ji,jj) 332 332 ENDDO 333 333 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.