- Timestamp:
- 2019-11-07T17:55:13+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/fix_sn_cfctl_ticket2328/src/OCE/SBC/sbcblk.F90
r11869 r11872 507 507 508 508 509 IF( ln_ctl .OR. sn_cfctl%l_mppout) THEN509 IF(sn_cfctl%l_prtctl) THEN 510 510 CALL prt_ctl( tab2d_1=zqla , clinfo1=' blk_oce: zqla : ', tab2d_2=Ce_atm , clinfo2=' Ce_oce : ' ) 511 511 CALL prt_ctl( tab2d_1=zqsb , clinfo1=' blk_oce: zqsb : ', tab2d_2=Ch_atm , clinfo2=' Ch_oce : ' ) … … 553 553 ENDIF 554 554 ! 555 IF( ln_ctl .OR. sn_cfctl%l_mppout) THEN555 IF(sn_cfctl%l_prtctl) THEN 556 556 CALL prt_ctl(tab2d_1=zqsb , clinfo1=' blk_oce: zqsb : ', tab2d_2=zqlw , clinfo2=' zqlw : ') 557 557 CALL prt_ctl(tab2d_1=zqla , clinfo1=' blk_oce: zqla : ', tab2d_2=qsr , clinfo2=' qsr : ') … … 764 764 ! 765 765 ! 766 IF( ln_ctl .OR. sn_cfctl%l_mppout) THEN766 IF(sn_cfctl%l_prtctl) THEN 767 767 CALL prt_ctl(tab2d_1=utau_ice , clinfo1=' blk_ice: utau_ice : ', tab2d_2=vtau_ice , clinfo2=' vtau_ice : ') 768 768 CALL prt_ctl(tab2d_1=wndm_ice , clinfo1=' blk_ice: wndm_ice : ') … … 914 914 END WHERE 915 915 ! 916 IF( ln_ctl .OR. sn_cfctl%l_mppout) THEN916 IF(sn_cfctl%l_prtctl) THEN 917 917 CALL prt_ctl(tab3d_1=qla_ice , clinfo1=' blk_ice: qla_ice : ', tab3d_2=z_qsb , clinfo2=' z_qsb : ', kdim=jpl) 918 918 CALL prt_ctl(tab3d_1=z_qlw , clinfo1=' blk_ice: z_qlw : ', tab3d_2=dqla_ice, clinfo2=' dqla_ice : ', kdim=jpl)
Note: See TracChangeset
for help on using the changeset viewer.