- Timestamp:
- 2019-11-06T17:01:36+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
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.