Changeset 9366 for branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ICB

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/ICB/icbini.F90 (modified) (3 diffs)

branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ICB/icbini.F90

@@ -34 +34 @@
 
    PUBLIC   icb_init  ! routine called in nemogcm.F90 module
+   PRIVATE  icb_namelist
 
    CHARACTER(len=100)                                 ::   cn_dir = './'   !: Root directory for location of icb files
@@ -362 +363 @@
 
 #if !defined key_agrif
-      REWIND( numnam_ref )              ! Namelist namberg in reference namelist : Iceberg parameters
-      READ  ( numnam_ref, namberg, IOSTAT = ios, ERR = 901)
-901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namberg in reference namelist', lwp )
-      REWIND( numnam_cfg )              ! Namelist namberg in configuration namelist : Iceberg parameters
-      READ  ( numnam_cfg, namberg, IOSTAT = ios, ERR = 902 )
-902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namberg in configuration namelist', lwp )
+      IF(lwm) THEN
+         REWIND( numnam_ref )              ! Namelist namberg in reference namelist : Iceberg parameters
+         READ  ( numnam_ref, namberg, IOSTAT = ios, ERR = 901)
+901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namberg in reference namelist', lwm )
+         REWIND( numnam_cfg )              ! Namelist namberg in configuration namelist : Iceberg parameters
+         READ  ( numnam_cfg, namberg, IOSTAT = ios, ERR = 902 )
+902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namberg in configuration namelist', lwm )
+      ENDIF
+
       IF(lwm) WRITE ( numond, namberg )
+
+      CALL icb_namelist()
+
 #else
       IF(lwp) THEN
@@ -451 +458 @@
    END SUBROUTINE icb_nam
 
+   SUBROUTINE icb_namelist()
+     !!---------------------------------------------------------------------
+     !!                   ***  ROUTINE icb_namelist  ***
+     !!                     
+     !! ** Purpose :   Broadcast namelist variables read by procesor lwm
+     !!
+     !! ** Method  :   use lib_mpp
+     !!----------------------------------------------------------------------
+#if defined key_mpp_mpi
+      CALL mpp_bcast(ln_icebergs)
+      CALL mpp_bcast(ln_bergdia)
+      CALL mpp_bcast(nn_sample_rate)
+      CALL mpp_bcast(rn_initial_mass, nclasses)
+      CALL mpp_bcast(rn_distribution, nclasses)
+      CALL mpp_bcast(rn_mass_scaling, nclasses)
+      CALL mpp_bcast(rn_initial_thickness, nclasses)
+      CALL mpp_bcast(nn_verbose_write)
+      CALL mpp_bcast(rn_rho_bergs)
+      CALL mpp_bcast(rn_LoW_ratio)
+      CALL mpp_bcast(nn_verbose_level)
+      CALL mpp_bcast(ln_operator_splitting)
+      CALL mpp_bcast(rn_bits_erosion_fraction)
+      CALL mpp_bcast(rn_sicn_shift)
+      CALL mpp_bcast(ln_passive_mode)
+      CALL mpp_bcast(ln_time_average_weight)
+      CALL mpp_bcast(nn_test_icebergs)
+      CALL mpp_bcast(rn_test_box, 4)
+      CALL mpp_bcast(rn_speed_limit)
+      CALL mpp_bcast(cn_dir, 100)
+      CALL fld_n_bcast(sn_icb)
+#endif
+   END SUBROUTINE icb_namelist
+
    !!======================================================================
 END MODULE icbini