Changeset 12236 for NEMO/branches/2019/dev_r11943_MERGE_2019/src/ABL

Timestamp:

2019-12-13T10:19:48+01:00 (4 years ago)

Author:

acc

Message:

Branch 2019/dev_r11943_MERGE_2019. Merge in changes from 2019/fix_sn_cfctl_ticket2328. Fully SETTE tested

File:

• NEMO/branches/2019/dev_r11943_MERGE_2019/src/ABL/ablmod.F90 (modified) (2 diffs)

NEMO/branches/2019/dev_r11943_MERGE_2019/src/ABL/ablmod.F90

@@ -579 +579 @@
       CALL iom_put( "taum_oce", ptaum )
 
-      IF(ln_ctl) THEN
+      IF(sn_cfctl%l_prtctl) THEN
          CALL prt_ctl( tab2d_1=pwndm  , clinfo1=' abl_stp: wndm   : ' )
          CALL prt_ctl( tab2d_1=ptaui  , clinfo1=' abl_stp: utau   : ' )
@@ -605 +605 @@
          CALL lbc_lnk_multi( 'ablmod', ptaui_ice, 'U', -1., ptauj_ice, 'V', -1. )
          !
-         IF(ln_ctl)   CALL prt_ctl( tab2d_1=ptaui_ice  , clinfo1=' abl_stp: putaui : '   &
-            &                     , tab2d_2=ptauj_ice  , clinfo2='          pvtaui : ' )
+         IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab2d_1=ptaui_ice  , clinfo1=' abl_stp: putaui : '   &
+            &                                , tab2d_2=ptauj_ice  , clinfo2='          pvtaui : ' )
 #endif
       !                            !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<