Changeset 11872 for NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/TRA
- Timestamp:
- 2019-11-07T17:55:13+01:00 (4 years ago)
- Location:
- NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/TRA
- Files:
-
- 10 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/TRA/eosbn2.F90
r11869 r11872 297 297 END SELECT 298 298 ! 299 IF( ln_ctl .OR. sn_cfctl%l_mppout) CALL prt_ctl( tab3d_1=prd, clinfo1=' eos-insitu : ', kdim=jpk )299 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1=prd, clinfo1=' eos-insitu : ', kdim=jpk ) 300 300 ! 301 301 IF( ln_timing ) CALL timing_stop('eos-insitu') … … 464 464 END SELECT 465 465 ! 466 IF( ln_ctl .OR. sn_cfctl%l_mppout) CALL prt_ctl( tab3d_1=prd, clinfo1=' eos-pot: ', tab3d_2=prhop, clinfo2=' pot : ', kdim=jpk )466 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1=prd, clinfo1=' eos-pot: ', tab3d_2=prhop, clinfo2=' pot : ', kdim=jpk ) 467 467 ! 468 468 IF( ln_timing ) CALL timing_stop('eos-pot') … … 559 559 END SELECT 560 560 ! 561 IF( ln_ctl .OR. sn_cfctl%l_mppout) CALL prt_ctl( tab2d_1=prd, clinfo1=' eos2d: ' )561 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab2d_1=prd, clinfo1=' eos2d: ' ) 562 562 ! 563 563 IF( ln_timing ) CALL timing_stop('eos2d') … … 671 671 END SELECT 672 672 ! 673 IF( ln_ctl .OR. sn_cfctl%l_mppout) CALL prt_ctl( tab3d_1=pab(:,:,:,jp_tem), clinfo1=' rab_3d_t: ', &674 & 673 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1=pab(:,:,:,jp_tem), clinfo1=' rab_3d_t: ', & 674 & tab3d_2=pab(:,:,:,jp_sal), clinfo2=' rab_3d_s : ', kdim=jpk ) 675 675 ! 676 676 IF( ln_timing ) CALL timing_stop('rab_3d') … … 785 785 END SELECT 786 786 ! 787 IF( ln_ctl .OR. sn_cfctl%l_mppout) CALL prt_ctl( tab2d_1=pab(:,:,jp_tem), clinfo1=' rab_2d_t: ', &788 & 787 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab2d_1=pab(:,:,jp_tem), clinfo1=' rab_2d_t: ', & 788 & tab2d_2=pab(:,:,jp_sal), clinfo2=' rab_2d_s : ' ) 789 789 ! 790 790 IF( ln_timing ) CALL timing_stop('rab_2d') … … 929 929 END DO 930 930 ! 931 IF( ln_ctl .OR. sn_cfctl%l_mppout) CALL prt_ctl( tab3d_1=pn2, clinfo1=' bn2 : ', kdim=jpk )931 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1=pn2, clinfo1=' bn2 : ', kdim=jpk ) 932 932 ! 933 933 IF( ln_timing ) CALL timing_stop('bn2') -
NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/TRA/traadv.F90
r11869 r11872 168 168 ENDIF 169 169 ! ! print mean trends (used for debugging) 170 IF( ln_ctl .OR. sn_cfctl%l_mppout) CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' adv - Ta: ', mask1=tmask, &171 & 170 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' adv - Ta: ', mask1=tmask, & 171 & tab3d_2=tsa(:,:,:,jp_sal), clinfo2= ' Sa: ', mask2=tmask, clinfo3='tra' ) 172 172 ! 173 173 IF( ln_timing ) CALL timing_stop( 'tra_adv' ) -
NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/TRA/trabbc.F90
r11869 r11872 100 100 ENDIF 101 101 ! 102 IF( ln_ctl .OR. sn_cfctl%l_mppout) CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' bbc - Ta: ', mask1=tmask, clinfo3='tra-ta' )102 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' bbc - Ta: ', mask1=tmask, clinfo3='tra-ta' ) 103 103 ! 104 104 IF( ln_timing ) CALL timing_stop('tra_bbc') -
NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/TRA/trabbl.F90
r11869 r11872 119 119 ! 120 120 CALL tra_bbl_dif( tsb, tsa, jpts ) 121 IF( ln_ctl .OR. sn_cfctl%l_mppout) &121 IF( sn_cfctl%l_prtctl ) & 122 122 CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' bbl_ldf - Ta: ', mask1=tmask, & 123 123 & tab3d_2=tsa(:,:,:,jp_sal), clinfo2= ' Sa: ', mask2=tmask, clinfo3='tra' ) … … 132 132 ! 133 133 CALL tra_bbl_adv( tsb, tsa, jpts ) 134 IF( ln_ctl .OR. sn_cfctl%l_mppout) &134 IF(sn_cfctl%l_prtctl) & 135 135 CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' bbl_adv - Ta: ', mask1=tmask, & 136 136 & tab3d_2=tsa(:,:,:,jp_sal), clinfo2= ' Sa: ', mask2=tmask, clinfo3='tra' ) -
NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/TRA/tradmp.F90
r11869 r11872 156 156 ENDIF 157 157 ! ! Control print 158 IF( ln_ctl .OR. sn_cfctl%l_mppout) CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' dmp - Ta: ', mask1=tmask, &159 & 158 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' dmp - Ta: ', mask1=tmask, & 159 & tab3d_2=tsa(:,:,:,jp_sal), clinfo2= ' Sa: ', mask2=tmask, clinfo3='tra' ) 160 160 ! 161 161 IF( ln_timing ) CALL timing_stop('tra_dmp') -
NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/TRA/traldf.F90
r11869 r11872 85 85 ENDIF 86 86 ! !* print mean trends (used for debugging) 87 IF( ln_ctl .OR. sn_cfctl%l_mppout) CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' ldf - Ta: ', mask1=tmask, &88 & 87 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' ldf - Ta: ', mask1=tmask, & 88 & tab3d_2=tsa(:,:,:,jp_sal), clinfo2= ' Sa: ', mask2=tmask, clinfo3='tra' ) 89 89 ! 90 90 IF( ln_timing ) CALL timing_stop('tra_ldf') -
NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/TRA/tranxt.F90
r11869 r11872 181 181 ! 182 182 ! ! control print 183 IF( ln_ctl .OR. sn_cfctl%l_mppout) CALL prt_ctl( tab3d_1=tsn(:,:,:,jp_tem), clinfo1=' nxt - Tn: ', mask1=tmask, &184 & 183 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1=tsn(:,:,:,jp_tem), clinfo1=' nxt - Tn: ', mask1=tmask, & 184 & tab3d_2=tsn(:,:,:,jp_sal), clinfo2= ' Sn: ', mask2=tmask ) 185 185 ! 186 186 IF( ln_timing ) CALL timing_stop('tra_nxt') -
NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/TRA/traqsr.F90
r11869 r11872 300 300 ENDIF 301 301 ! ! print mean trends (used for debugging) 302 IF( ln_ctl .OR. sn_cfctl%l_mppout) CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' qsr - Ta: ', mask1=tmask, clinfo3='tra-ta' )302 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' qsr - Ta: ', mask1=tmask, clinfo3='tra-ta' ) 303 303 ! 304 304 IF( ln_timing ) CALL timing_stop('tra_qsr') -
NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/TRA/trasbc.F90
r11869 r11872 266 266 ENDIF 267 267 ! 268 IF( ln_ctl .OR. sn_cfctl%l_mppout) CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' sbc - Ta: ', mask1=tmask, &269 & 268 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' sbc - Ta: ', mask1=tmask, & 269 & tab3d_2=tsa(:,:,:,jp_sal), clinfo2= ' Sa: ', mask2=tmask, clinfo3='tra' ) 270 270 ! 271 271 IF( ln_timing ) CALL timing_stop('tra_sbc') -
NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/TRA/trazdf.F90
r11869 r11872 99 99 ENDIF 100 100 ! ! print mean trends (used for debugging) 101 IF( ln_ctl .OR. sn_cfctl%l_mppout) CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' zdf - Ta: ', mask1=tmask, &102 & 101 IF(sn_cfctl%l_prtctl) CALL prt_ctl( tab3d_1=tsa(:,:,:,jp_tem), clinfo1=' zdf - Ta: ', mask1=tmask, & 102 & tab3d_2=tsa(:,:,:,jp_sal), clinfo2= ' Sa: ', mask2=tmask, clinfo3='tra' ) 103 103 ! 104 104 IF( ln_timing ) CALL timing_stop('tra_zdf')
Note: See TracChangeset
for help on using the changeset viewer.