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

branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

@@ -58 +58 @@
    PUBLIC dyn_spg_ts_init   !    "      "     "    "
    PUBLIC ts_rst            !    "      "     "    "
+   PRIVATE ts_namelist   
 
    INTEGER, SAVE :: icycle  ! Number of barotropic sub-steps for each internal step nn_baro <= 2.5 nn_baro
@@ -1081 +1082 @@
       !!----------------------------------------------------------------------
       !
-      REWIND( numnam_ref )              ! Namelist namsplit in reference namelist : time splitting parameters
-      READ  ( numnam_ref, namsplit, IOSTAT = ios, ERR = 901)
-901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsplit in reference namelist', lwp )
-
-      REWIND( numnam_cfg )              ! Namelist namsplit in configuration namelist : time splitting parameters
-      READ  ( numnam_cfg, namsplit, IOSTAT = ios, ERR = 902 )
-902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsplit in configuration namelist', lwp )
+      IF(lwm) THEN
+         REWIND( numnam_ref )              ! Namelist namsplit in reference namelist : time splitting parameters
+         READ  ( numnam_ref, namsplit, IOSTAT = ios, ERR = 901)
+901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsplit in reference namelist', lwm )
+         REWIND( numnam_cfg )              ! Namelist namsplit in configuration namelist : time splitting parameters
+         READ  ( numnam_cfg, namsplit, IOSTAT = ios, ERR = 902 )
+902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsplit in configuration namelist', lwm )
+      ENDIF
+
       IF(lwm) WRITE ( numond, namsplit )
+
+      CALL ts_namelist()
+
       !
       !         ! Max courant number for ext. grav. waves
@@ -1172 +1178 @@
       !
    END SUBROUTINE dyn_spg_ts_init
+
+      SUBROUTINE ts_namelist()
+     !!---------------------------------------------------------------------
+     !!                   ***  ROUTINE ts_namelist  ***
+     !!                     
+     !! ** Purpose :   Broadcast namelist variables read by procesor lwm
+     !!
+     !! ** Method  :   use lib_mpp
+     !!----------------------------------------------------------------------
+#if defined key_mpp_mpi
+      CALL mpp_bcast(ln_bt_fw)
+      CALL mpp_bcast(ln_bt_av)
+      CALL mpp_bcast(ln_bt_nn_auto)
+      CALL mpp_bcast(nn_baro)
+      CALL mpp_bcast(rn_bt_cmax)
+      CALL mpp_bcast(nn_bt_flt)
+#endif
+   END SUBROUTINE ts_namelist
 
 #else