Changeset 11869 for NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN
- Timestamp:
- 2019-11-06T17:01:36+01:00 (5 years ago)
- Location:
- NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN
- Files:
-
- 12 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/dynadv_cen2.F90
r10068 r11869 139 139 ENDIF 140 140 ! ! Control print 141 IF(ln_ctl ) CALL prt_ctl( tab3d_1=ua, clinfo1=' cen2 adv - Ua: ', mask1=umask, &142 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' )141 IF(ln_ctl .OR. sn_cfctl%l_mppout) CALL prt_ctl( tab3d_1=ua, clinfo1=' cen2 adv - Ua: ', mask1=umask, & 142 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 143 143 ! 144 144 END SUBROUTINE dyn_adv_cen2 -
NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/dynadv_ubs.F90
r10425 r11869 232 232 ENDIF 233 233 ! ! Control print 234 IF(ln_ctl ) CALL prt_ctl( tab3d_1=ua, clinfo1=' ubs2 adv - Ua: ', mask1=umask, &235 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' )234 IF(ln_ctl .OR. sn_cfctl%l_mppout) CALL prt_ctl( tab3d_1=ua, clinfo1=' ubs2 adv - Ua: ', mask1=umask, & 235 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 236 236 ! 237 237 END SUBROUTINE dyn_adv_ubs -
NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/dynhpg.F90
r11536 r11869 119 119 ENDIF 120 120 ! 121 IF(ln_ctl ) CALL prt_ctl( tab3d_1=ua, clinfo1=' hpg - Ua: ', mask1=umask, &122 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' )121 IF(ln_ctl .OR. sn_cfctl%l_mppout) CALL prt_ctl( tab3d_1=ua, clinfo1=' hpg - Ua: ', mask1=umask, & 122 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 123 123 ! 124 124 IF( ln_timing ) CALL timing_stop('dyn_hpg') -
NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/dynkeg.F90
r11536 r11869 147 147 ENDIF 148 148 ! 149 IF(ln_ctl ) CALL prt_ctl( tab3d_1=ua, clinfo1=' keg - Ua: ', mask1=umask, &150 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' )149 IF(ln_ctl .OR. sn_cfctl%l_mppout) CALL prt_ctl( tab3d_1=ua, clinfo1=' keg - Ua: ', mask1=umask, & 150 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 151 151 ! 152 152 IF( ln_timing ) CALL timing_stop('dyn_keg') -
NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/dynldf.F90
r10068 r11869 77 77 ENDIF 78 78 ! ! print sum trends (used for debugging) 79 IF(ln_ctl ) CALL prt_ctl( tab3d_1=ua, clinfo1=' ldf - Ua: ', mask1=umask, &80 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' )79 IF(ln_ctl .OR. sn_cfctl%l_mppout) CALL prt_ctl( tab3d_1=ua, clinfo1=' ldf - Ua: ', mask1=umask, & 80 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 81 81 ! 82 82 IF( ln_timing ) CALL timing_stop('dyn_ldf') -
NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/dynldf_iso.F90
r10425 r11869 286 286 287 287 ! print sum trends (used for debugging) 288 IF(ln_ctl ) CALL prt_ctl( tab3d_1=ua, clinfo1=' ldfh - Ua: ', mask1=umask, &289 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' )288 IF(ln_ctl .OR. sn_cfctl%l_mppout) CALL prt_ctl( tab3d_1=ua, clinfo1=' ldfh - Ua: ', mask1=umask, & 289 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 290 290 291 291 -
NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/dynnxt.F90
r10425 r11869 368 368 ENDIF 369 369 ! 370 IF(ln_ctl ) CALL prt_ctl( tab3d_1=un, clinfo1=' nxt - Un: ', mask1=umask, &371 & tab3d_2=vn, clinfo2=' Vn: ' , mask2=vmask )370 IF(ln_ctl .OR. sn_cfctl%l_mppout) CALL prt_ctl( tab3d_1=un, clinfo1=' nxt - Un: ', mask1=umask, & 371 & tab3d_2=vn, clinfo2=' Vn: ' , mask2=vmask ) 372 372 ! 373 373 IF( ln_dynspg_ts ) DEALLOCATE( zue, zve ) -
NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/dynspg.F90
r11536 r11869 172 172 ENDIF 173 173 ! ! print mean trends (used for debugging) 174 IF(ln_ctl ) CALL prt_ctl( tab3d_1=ua, clinfo1=' spg - Ua: ', mask1=umask, &175 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' )174 IF(ln_ctl .OR. sn_cfctl%l_mppout) CALL prt_ctl( tab3d_1=ua, clinfo1=' spg - Ua: ', mask1=umask, & 175 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 176 176 ! 177 177 IF( ln_timing ) CALL timing_stop('dyn_spg') -
NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/dynvor.F90
r11536 r11869 179 179 ! 180 180 ! ! print sum trends (used for debugging) 181 IF(ln_ctl ) CALL prt_ctl( tab3d_1=ua, clinfo1=' vor - Ua: ', mask1=umask, &182 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' )181 IF(ln_ctl .OR. sn_cfctl%l_mppout) CALL prt_ctl( tab3d_1=ua, clinfo1=' vor - Ua: ', mask1=umask, & 182 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 183 183 ! 184 184 IF( ln_timing ) CALL timing_stop('dyn_vor') -
NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/dynzad.F90
r10068 r11869 114 114 ENDIF 115 115 ! ! Control print 116 IF(ln_ctl ) CALL prt_ctl( tab3d_1=ua, clinfo1=' zad - Ua: ', mask1=umask, &117 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' )116 IF(ln_ctl .OR. sn_cfctl%l_mppout) CALL prt_ctl( tab3d_1=ua, clinfo1=' zad - Ua: ', mask1=umask, & 117 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 118 118 ! 119 119 IF( ln_timing ) CALL timing_stop('dyn_zad') -
NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/dynzdf.F90
r11281 r11869 492 492 ENDIF 493 493 ! ! print mean trends (used for debugging) 494 IF(ln_ctl ) CALL prt_ctl( tab3d_1=ua, clinfo1=' zdf - Ua: ', mask1=umask, &495 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' )494 IF(ln_ctl .OR. sn_cfctl%l_mppout) CALL prt_ctl( tab3d_1=ua, clinfo1=' zdf - Ua: ', mask1=umask, & 495 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 496 496 ! 497 497 IF( ln_timing ) CALL timing_stop('dyn_zdf') -
NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/DYN/sshwzv.F90
r11414 r11869 121 121 ! !------------------------------! 122 122 ! 123 IF(ln_ctl ) CALL prt_ctl( tab2d_1=ssha, clinfo1=' ssha - : ', mask1=tmask )123 IF(ln_ctl .OR. sn_cfctl%l_mppout) CALL prt_ctl( tab2d_1=ssha, clinfo1=' ssha - : ', mask1=tmask ) 124 124 ! 125 125 IF( ln_timing ) CALL timing_stop('ssh_nxt') … … 262 262 ENDIF 263 263 ! 264 IF(ln_ctl ) CALL prt_ctl( tab2d_1=sshb, clinfo1=' sshb - : ', mask1=tmask )264 IF(ln_ctl .OR. sn_cfctl%l_mppout) CALL prt_ctl( tab2d_1=sshb, clinfo1=' sshb - : ', mask1=tmask ) 265 265 ! 266 266 IF( ln_timing ) CALL timing_stop('ssh_swp')
Note: See TracChangeset
for help on using the changeset viewer.