- Timestamp:
- 2019-11-06T17:01:36+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/ZDF/zdfdrg.F90
r11536 r11869 139 139 ENDIF 140 140 ! 141 IF(ln_ctl ) CALL prt_ctl( tab2d_1=pCdU, clinfo1=' Cd*U ')141 IF(ln_ctl .OR. sn_cfctl%l_mppout) CALL prt_ctl( tab2d_1=pCdU, clinfo1=' Cd*U ') 142 142 ! 143 143 END SUBROUTINE zdf_drg … … 213 213 ENDIF 214 214 ! ! print mean trends (used for debugging) 215 IF(ln_ctl ) CALL prt_ctl( tab3d_1=pua, clinfo1=' bfr - Ua: ', mask1=umask, &216 & tab3d_2=pva, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' )215 IF(ln_ctl .OR. sn_cfctl%l_mppout) CALL prt_ctl( tab3d_1=pua, clinfo1=' bfr - Ua: ', mask1=umask, & 216 & tab3d_2=pva, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 217 217 ! 218 218 END SUBROUTINE zdf_drg_exp
Note: See TracChangeset
for help on using the changeset viewer.