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

branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/STO/stopar.F90

@@ -30 +30 @@
    PUBLIC   sto_par         ! called by step.F90
    PUBLIC   sto_rst_write   ! called by step.F90
+   PRIVATE  par_namelist
 
    LOGICAL           :: ln_rststo = .FALSE.  ! restart stochastic parameters from restart file
@@ -261 +262 @@
 
       ! Read namsto namelist : stochastic parameterization
-      REWIND( numnam_ref )              ! Namelist namdyn_adv in reference namelist : Momentum advection scheme
-      READ  ( numnam_ref, namsto, IOSTAT = ios, ERR = 901)
-901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsto in reference namelist', lwp )
-
-      REWIND( numnam_cfg )              ! Namelist namdyn_adv in configuration namelist : Momentum advection scheme
-      READ  ( numnam_cfg, namsto, IOSTAT = ios, ERR = 902 )
-902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsto in configuration namelist', lwp )
+      IF(lwm) THEN
+         REWIND( numnam_ref )              ! Namelist namdyn_adv in reference namelist : Momentum advection scheme
+         READ  ( numnam_ref, namsto, IOSTAT = ios, ERR = 901)
+901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsto in reference namelist', lwm )
+         REWIND( numnam_cfg )              ! Namelist namdyn_adv in configuration namelist : Momentum advection scheme
+         READ  ( numnam_cfg, namsto, IOSTAT = ios, ERR = 902 )
+902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsto in configuration namelist', lwm )
+      ENDIF
       IF(lwm) WRITE ( numond, namsto )
 
       !IF(ln_ens_rst_in) cn_storst_in = cn_mem//cn_storst_in
+
+      call par_namelist()
 
       ! Parameter print
@@ -899 +903 @@
    END FUNCTION sto_par_flt_fac
 
+   SUBROUTINE par_namelist()
+     !!---------------------------------------------------------------------
+     !!                   ***  ROUTINE par_namelist  ***
+     !!                     
+     !! ** Purpose :   Broadcast namelist variables read by procesor lwm
+     !!
+     !! ** Method  :   use lib_mpp
+     !!----------------------------------------------------------------------
+#if defined key_mpp_mpi
+      CALL mpp_bcast(ln_sto_ldf)
+      CALL mpp_bcast(rn_ldf_std)
+      CALL mpp_bcast(rn_ldf_tcor)
+      CALL mpp_bcast(ln_sto_hpg)
+      CALL mpp_bcast(rn_hpg_std)
+      CALL mpp_bcast(rn_hpg_tcor)
+      CALL mpp_bcast(ln_sto_pstar)
+      CALL mpp_bcast(rn_pstar_std)
+      CALL mpp_bcast(rn_pstar_tcor)
+      CALL mpp_bcast(nn_pstar_flt)
+      CALL mpp_bcast(nn_pstar_ord)
+      CALL mpp_bcast(ln_sto_trd)
+      CALL mpp_bcast(rn_trd_std)
+      CALL mpp_bcast(rn_trd_tcor)
+      CALL mpp_bcast(ln_sto_eos)
+      CALL mpp_bcast(nn_sto_eos)
+      CALL mpp_bcast(rn_eos_stdxy)
+      CALL mpp_bcast(rn_eos_stdz)
+      CALL mpp_bcast(rn_eos_tcor)
+      CALL mpp_bcast(nn_eos_ord)
+      CALL mpp_bcast(nn_eos_flt)
+      CALL mpp_bcast(rn_eos_lim)
+      CALL mpp_bcast(ln_sto_trc)
+      CALL mpp_bcast(nn_sto_trc)
+      CALL mpp_bcast(rn_trc_stdxy)
+      CALL mpp_bcast(rn_trc_stdz)
+      CALL mpp_bcast(rn_trc_tcor)
+      CALL mpp_bcast(nn_trc_ord)
+      CALL mpp_bcast(nn_trc_flt)
+      CALL mpp_bcast(rn_trc_lim)
+      CALL mpp_bcast(ln_rststo)
+      CALL mpp_bcast(ln_rstseed)
+      CALL mpp_bcast(cn_storst_in, 32)
+      CALL mpp_bcast(cn_storst_out, 32)
+#endif
+   END SUBROUTINE par_namelist
 
 END MODULE stopar