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

branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

@@ -44 +44 @@
    PUBLIC  dom_vvl_interpol   ! called by dynnxt.F90
    PRIVATE dom_vvl_orca_fix   ! called by dom_vvl_interpol
+   PRIVATE dom_namelist
 
    !!* Namelist nam_vvl
@@ -948 +949 @@
                       & rn_lf_cutoff               , rn_zdef_max , ln_vvl_dbg                ! not yet implemented: ln_vvl_kepe
       !!---------------------------------------------------------------------- 
-
-      REWIND( numnam_ref )              ! Namelist nam_vvl in reference namelist : 
-      READ  ( numnam_ref, nam_vvl, IOSTAT = ios, ERR = 901)
-901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_vvl in reference namelist', lwp )
-
-      REWIND( numnam_cfg )              ! Namelist nam_vvl in configuration namelist : Parameters of the run
-      READ  ( numnam_cfg, nam_vvl, IOSTAT = ios, ERR = 902 )
-902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_vvl in configuration namelist', lwp )
+      IF(lwm) THEN
+         REWIND( numnam_ref )              ! Namelist nam_vvl in reference namelist : 
+         READ  ( numnam_ref, nam_vvl, IOSTAT = ios, ERR = 901)
+901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_vvl in reference namelist', lwm )
+         REWIND( numnam_cfg )              ! Namelist nam_vvl in configuration namelist : Parameters of the run
+         READ  ( numnam_cfg, nam_vvl, IOSTAT = ios, ERR = 902 )
+902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_vvl in configuration namelist', lwm )
+      ENDIF
       IF(lwm) WRITE ( numond, nam_vvl )
+
+      CALL dom_namelist()
 
       IF(lwp) THEN                    ! Namelist print
@@ -1407 +1410 @@
    END SUBROUTINE dom_vvl_orca_fix
 
+   SUBROUTINE dom_namelist()
+     !!---------------------------------------------------------------------
+     !!                   ***  ROUTINE dom_namelist  ***
+     !!                     
+     !! ** Purpose :   Broadcast namelist variables read by procesor lwm
+     !!
+     !! ** Method  :   use lib_mpp
+     !!----------------------------------------------------------------------
+#if defined key_mpp_mpi
+      CALL mpp_bcast(ln_vvl_zstar)
+      CALL mpp_bcast(ln_vvl_ztilde)
+      CALL mpp_bcast(ln_vvl_layer)
+      CALL mpp_bcast(ln_vvl_ztilde_as_zstar)
+      CALL mpp_bcast(ln_vvl_zstar_at_eqtor)
+      CALL mpp_bcast(rn_ahe3)
+      CALL mpp_bcast(rn_rst_e3t)
+      CALL mpp_bcast(rn_lf_cutoff)
+      CALL mpp_bcast(rn_zdef_max)
+      CALL mpp_bcast(ln_vvl_dbg)
+#endif
+   END SUBROUTINE dom_namelist
    !!======================================================================
 END MODULE domvvl