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

branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90

@@ -41 +41 @@
    PUBLIC   bdytide_update   ! routine called in bdy_dta
    PUBLIC   bdy_dta_tides    ! routine called in dyn_spg_ts
+   PRIVATE  tide_namelist
 
    TYPE, PUBLIC ::   TIDES_DATA     !: Storage for external tidal harmonics data
@@ -101 +102 @@
       ENDIF
 
-      REWIND(numnam_cfg)
+      IF(lwm) REWIND(numnam_cfg)
 
       DO ib_bdy = 1, nb_bdy
@@ -114 +115 @@
 
             ! Don't REWIND here - may need to read more than one of these namelists. 
-            READ  ( numnam_ref, nambdy_tide, IOSTAT = ios, ERR = 901)
-901         IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_tide in reference namelist', lwp )
-            READ  ( numnam_cfg, nambdy_tide, IOSTAT = ios, ERR = 902 )
-902         IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_tide in configuration namelist', lwp )
+            IF(lwm) THEN
+               READ  ( numnam_ref, nambdy_tide, IOSTAT = ios, ERR = 901)
+901            IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_tide in reference namelist', lwm )
+               READ  ( numnam_cfg, nambdy_tide, IOSTAT = ios, ERR = 902 )
+902            IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_tide in configuration namelist', lwm )
+            ENDIF
+
             IF(lwm) WRITE ( numond, nambdy_tide )
+
+            CALL tide_namelist(filtide)
+
             !                                               ! Parameter control and print
             IF(lwp) WRITE(numout,*) '  '
@@ -605 +612 @@
 
   END SUBROUTINE tide_init_velocities
+
+  SUBROUTINE tide_namelist(cd_filtide)
+     !!---------------------------------------------------------------------
+     !!                   ***  ROUTINE tide_namelist  ***
+     !!                     
+     !! ** Purpose :   Broadcast namelist variables read by procesor lwm
+     !!
+     !! ** Method  :   use lib_mpp
+     !!----------------------------------------------------------------------
+     CHARACTER(len=80)                         ::   cd_filtide
+#if defined key_mpp_mpi
+      CALL mpp_bcast(cd_filtide, 80)
+      CALL mpp_bcast(ln_bdytide_2ddta)
+      CALL mpp_bcast(ln_bdytide_conj
+#endif
+  END SUBROUTINE tide_namelist
+
 #else
    !!----------------------------------------------------------------------