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

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

@@ -34 +34 @@
    PUBLIC tra_bbc          ! routine called by step.F90
    PUBLIC tra_bbc_init     ! routine called by opa.F90
+   PRIVATE bbc_namelist
 
    !                                 !!* Namelist nambbc: bottom boundary condition *
@@ -139 +140 @@
       NAMELIST/nambbc/ln_trabbc, nn_geoflx, rn_geoflx_cst, sn_qgh, cn_dir 
       !!----------------------------------------------------------------------
-
-      REWIND( numnam_ref )              ! Namelist nambbc in reference namelist : Bottom momentum boundary condition
-      READ  ( numnam_ref, nambbc, IOSTAT = ios, ERR = 901)
-901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbc in reference namelist', lwp )
-
-      REWIND( numnam_cfg )              ! Namelist nambbc in configuration namelist : Bottom momentum boundary condition
-      READ  ( numnam_cfg, nambbc, IOSTAT = ios, ERR = 902 )
-902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbc in configuration namelist', lwp )
+      IF(lwm) THEN
+         REWIND( numnam_ref )              ! Namelist nambbc in reference namelist : Bottom momentum boundary condition
+         READ  ( numnam_ref, nambbc, IOSTAT = ios, ERR = 901)
+901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbc in reference namelist', lwm )
+         REWIND( numnam_cfg )              ! Namelist nambbc in configuration namelist : Bottom momentum boundary condition
+         READ  ( numnam_cfg, nambbc, IOSTAT = ios, ERR = 902 )
+902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbc in configuration namelist', lwm )
+      ENDIF
       IF(lwm) WRITE ( numond, nambbc )
+
+      call bbc_namelist(sn_qgh, cn_dir)
 
       IF(lwp) THEN                     ! Control print
@@ -199 +202 @@
    END SUBROUTINE tra_bbc_init
 
+   SUBROUTINE bbc_namelist(sd_qgh, cd_dir)
+     !!---------------------------------------------------------------------
+     !!                   ***  ROUTINE bbc_namelist  ***
+     !!                     
+     !! ** Purpose :   Broadcast namelist variables read by procesor lwm
+     !!
+     !! ** Method  :   use lib_mpp
+     !!----------------------------------------------------------------------
+      TYPE(FLD_N)        ::   sd_qgh    ! informations about the geotherm. field to be read
+      CHARACTER(len=256) ::   cd_dir    ! Root directory for location of ssr files
+
+#if defined key_mpp_mpi
+      CALL mpp_bcast(ln_trabbc)
+      CALL mpp_bcast(nn_geoflx)
+      CALL mpp_bcast(rn_geoflx_cst)
+      CALL fld_n_bcast(sd_qgh)
+      CALL mpp_bcast(cd_dir, 256)
+#endif
+   END SUBROUTINE bbc_namelist
+
    !!======================================================================
 END MODULE trabbc