Changeset 9366 for branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90

Timestamp:

2018-02-28T16:29:13+01:00 (6 years ago)

Author:

andmirek

Message:

#2050 first version. Compiled OK in moci test suite

File:

• branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90 (modified) (3 diffs)

branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90

@@ -48 +48 @@
    PUBLIC   tra_bbl_adv   !  -          -          -              -
    PUBLIC   bbl           !  routine called by trcbbl.F90 and dtadyn.F90
+   PRIVATE  bbl_namelist
 
    LOGICAL, PUBLIC, PARAMETER ::   lk_trabbl = .TRUE.    !: bottom boundary layer flag
@@ -508 +509 @@
       CALL wrk_alloc( jpi, jpj, zmbk )
       !
-
-      REWIND( numnam_ref )              ! Namelist nambbl in reference namelist : Bottom boundary layer scheme
-      READ  ( numnam_ref, nambbl, IOSTAT = ios, ERR = 901)
-901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbl in reference namelist', lwp )
-
-      REWIND( numnam_cfg )              ! Namelist nambbl in configuration namelist : Bottom boundary layer scheme
-      READ  ( numnam_cfg, nambbl, IOSTAT = ios, ERR = 902 )
-902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbl in configuration namelist', lwp )
+      IF(lwm) THEN
+         REWIND( numnam_ref )              ! Namelist nambbl in reference namelist : Bottom boundary layer scheme
+         READ  ( numnam_ref, nambbl, IOSTAT = ios, ERR = 901)
+901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbl in reference namelist', lwm )
+         REWIND( numnam_cfg )              ! Namelist nambbl in configuration namelist : Bottom boundary layer scheme
+         READ  ( numnam_cfg, nambbl, IOSTAT = ios, ERR = 902 )
+902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbl in configuration namelist', lwm )
+      ENDIF
+
       IF(lwm) WRITE ( numond, nambbl )
       !
+      CALL bbl_namelist()
+
       l_bbl = .TRUE.                 !* flag to compute bbl coef and transport
       !
@@ -599 +603 @@
    END SUBROUTINE tra_bbl_init
 
+   SUBROUTINE bbl_namelist()
+     !!---------------------------------------------------------------------
+     !!                   ***  ROUTINE bbl_namelist  ***
+     !!                     
+     !! ** Purpose :   Broadcast namelist variables read by procesor lwm
+     !!
+     !! ** Method  :   use lib_mpp
+     !!----------------------------------------------------------------------
+#if defined key_mpp_mpi
+      CALL mpp_bcast(nn_bbl_ldf)
+      CALL mpp_bcast(nn_bbl_adv)
+      CALL mpp_bcast(rn_ahtbbl)
+      CALL mpp_bcast(rn_gambbl)
+#endif
+   END SUBROUTINE bbl_namelist
+
 #else
    !!----------------------------------------------------------------------