Changeset 258 for trunk/NEMO/OPA_SRC/TRA/traadv_cen2_atsk.h90
- Timestamp:
- 2005-09-02T17:48:36+02:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/TRA/traadv_cen2_atsk.h90
r247 r258 252 252 ENDIF 253 253 254 IF(l_ctl) THEN 255 zta = SUM( ta(2:nictl,2:njctl,1:jpkm1) * tmask(2:nictl,2:njctl,1:jpkm1) ) 256 zsa = SUM( sa(2:nictl,2:njctl,1:jpkm1) * tmask(2:nictl,2:njctl,1:jpkm1) ) 257 WRITE(numout,*) ' had - Ta: ', zta-t_ctl, ' Sa: ', zsa-s_ctl 258 t_ctl = zta ; s_ctl = zsa 254 IF(ln_ctl) THEN 255 CALL prt_ctl(tab3d_1=ta, clinfo1=' centered2 had - Ta: ', mask1=tmask, & 256 & tab3d_2=sa, clinfo2=' Sa: ', mask2=tmask, clinfo3='tra') 259 257 ENDIF 260 258 … … 350 348 ENDIF 351 349 352 IF(l_ctl) THEN 353 zta = SUM( ta(2:nictl,2:njctl,1:jpkm1) * tmask(2:nictl,2:njctl,1:jpkm1) ) 354 zsa = SUM( sa(2:nictl,2:njctl,1:jpkm1) * tmask(2:nictl,2:njctl,1:jpkm1) ) 355 WRITE(numout,*) ' zad - Ta: ', zta-t_ctl, ' Sa: ', zsa-s_ctl, ' centered2 autotsk' 356 t_ctl = zta ; s_ctl = zsa 350 IF(ln_ctl) THEN 351 CALL prt_ctl(tab3d_1=ta, clinfo1=' centered2 zad - Ta: ', mask1=tmask, & 352 & tab3d_2=sa, clinfo2=' Sa: ', mask2=tmask, clinfo3='tra') 357 353 ENDIF 358 354
Note: See TracChangeset
for help on using the changeset viewer.