- Timestamp:
- 2011-12-21T17:49:41+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90
r3237 r3238 282 282 ! ! degrad option : diffusive and eiv coef are 3D 283 283 ahtu(:,:,:) = sf_dyn(jf_ahu)%fnow(:,:,:) * umask(:,:,:) 284 ahtv(:,:,:) = sf_dyn(jf_ahv)%fnow(:,:,:) * umask(:,:,:)285 ahtw(:,:,:) = sf_dyn(jf_ahw)%fnow(:,:,:) * umask(:,:,:)284 ahtv(:,:,:) = sf_dyn(jf_ahv)%fnow(:,:,:) * vmask(:,:,:) 285 ahtw(:,:,:) = sf_dyn(jf_ahw)%fnow(:,:,:) * tmask(:,:,:) 286 286 # if defined key_traldf_eiv 287 287 aeiu(:,:,:) = sf_dyn(jf_eiu)%fnow(:,:,:) * umask(:,:,:) 288 aeiv(:,:,:) = sf_dyn(jf_eiv)%fnow(:,:,:) * umask(:,:,:)289 aeiw(:,:,:) = sf_dyn(jf_eiw)%fnow(:,:,:) * umask(:,:,:)288 aeiv(:,:,:) = sf_dyn(jf_eiv)%fnow(:,:,:) * vmask(:,:,:) 289 aeiw(:,:,:) = sf_dyn(jf_eiw)%fnow(:,:,:) * tmask(:,:,:) 290 290 # endif 291 291 #endif … … 294 294 CALL prt_ctl(tab3d_1=tsn(:,:,:,jf_tem), clinfo1=' tn - : ', mask1=tmask, ovlap=1, kdim=jpk ) 295 295 CALL prt_ctl(tab3d_1=tsn(:,:,:,jf_sal), clinfo1=' sn - : ', mask1=tmask, ovlap=1, kdim=jpk ) 296 CALL prt_ctl(tab3d_1=un , clinfo1=' un - : ', mask1= tmask, ovlap=1, kdim=jpk )297 CALL prt_ctl(tab3d_1=vn , clinfo1=' vn - : ', mask1= tmask, ovlap=1, kdim=jpk )296 CALL prt_ctl(tab3d_1=un , clinfo1=' un - : ', mask1=umask, ovlap=1, kdim=jpk ) 297 CALL prt_ctl(tab3d_1=vn , clinfo1=' vn - : ', mask1=vmask, ovlap=1, kdim=jpk ) 298 298 CALL prt_ctl(tab3d_1=wn , clinfo1=' wn - : ', mask1=tmask, ovlap=1, kdim=jpk ) 299 299 CALL prt_ctl(tab3d_1=avt , clinfo1=' kz - : ', mask1=tmask, ovlap=1, kdim=jpk )
Note: See TracChangeset
for help on using the changeset viewer.