Changeset 9366 for branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfbfr.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/ZDF/zdfbfr.F90 (modified) (3 diffs)

branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfbfr.F90

@@ -32 +32 @@
    PUBLIC   zdf_bfr         ! called by step.F90
    PUBLIC   zdf_bfr_init    ! called by nemogcm.F90
+   PRIVATE  bfr_namelist
 
    !                                 !!* Namelist nambfr: bottom friction namelist *
@@ -250 +251 @@
       !                              !* Parameter control and print
       !
-      REWIND( numnam_ref )              ! Namelist nambfr in reference namelist : Bottom momentum boundary condition
-      READ  ( numnam_ref, nambfr, IOSTAT = ios, ERR = 901)
-901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambfr in reference namelist', lwp )
-
-      REWIND( numnam_cfg )              ! Namelist nambfr in configuration namelist : Bottom momentum boundary condition
-      READ  ( numnam_cfg, nambfr, IOSTAT = ios, ERR = 902 )
-902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambfr in configuration namelist', lwp )
+      IF(lwm) THEN
+         REWIND( numnam_ref )              ! Namelist nambfr in reference namelist : Bottom momentum boundary condition
+         READ  ( numnam_ref, nambfr, IOSTAT = ios, ERR = 901)
+901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambfr in reference namelist', lwm )
+         REWIND( numnam_cfg )              ! Namelist nambfr in configuration namelist : Bottom momentum boundary condition
+         READ  ( numnam_cfg, nambfr, IOSTAT = ios, ERR = 902 )
+902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambfr in configuration namelist', lwm )
+      ENDIF
       IF(lwm) WRITE ( numond, nambfr )
+
+      CALL bfr_namelist()                  ! Broadcast namelist
+
       IF(lwp) WRITE(numout,*)
       IF(lwp) WRITE(numout,*) 'zdf_bfr_init : momentum bottom friction'
@@ -490 +495 @@
    END SUBROUTINE zdf_bfr_init
 
+   SUBROUTINE bfr_namelist()
+     !!---------------------------------------------------------------------
+     !!                   ***  ROUTINE zdf_namelist  ***
+     !!                     
+     !! ** Purpose :   Broadcast namelist variables read by procesor lwm
+     !!
+     !! ** Method  :   use lib_mpp
+     !!----------------------------------------------------------------------
+#if defined key_mpp_mpi
+      CALL mpp_bcast(nn_bfr)
+      CALL mpp_bcast(rn_bfri1)
+      CALL mpp_bcast(rn_bfri2)
+      CALL mpp_bcast(rn_bfri2_max)
+      CALL mpp_bcast(rn_bfeb2)
+      CALL mpp_bcast(rn_bfrz0)
+      CALL mpp_bcast(ln_bfr2d)
+      CALL mpp_bcast(rn_tfri1)
+      CALL mpp_bcast(rn_tfri2)
+      CALL mpp_bcast(rn_tfri2_max)
+      CALL mpp_bcast(rn_tfeb2)
+      CALL mpp_bcast(rn_tfrz0)
+      CALL mpp_bcast(ln_tfr2d)
+      CALL mpp_bcast(rn_bfrien)
+      CALL mpp_bcast(rn_tfrien)
+      CALL mpp_bcast(ln_bfrimp)
+      CALL mpp_bcast(ln_loglayer)
+#endif
+   END SUBROUTINE bfr_namelist
    !!======================================================================
 END MODULE zdfbfr