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

branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90

@@ -59 +59 @@
   PRIVATE  transport
   PRIVATE  dia_dct_wri
+  PRIVATE  dct_namelist
 
 #include "domzgr_substitute.h90"
@@ -144 +145 @@
      IF( nn_timing == 1 )   CALL timing_start('dia_dct_init')
 
-     REWIND( numnam_ref )              ! Namelist namdct in reference namelist : Diagnostic: transport through sections
-     READ  ( numnam_ref, namdct, IOSTAT = ios, ERR = 901)
-901  IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdct in reference namelist', lwp )
-
-     REWIND( numnam_cfg )              ! Namelist namdct in configuration namelist : Diagnostic: transport through sections
-     READ  ( numnam_cfg, namdct, IOSTAT = ios, ERR = 902 )
-902  IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdct in configuration namelist', lwp )
+     IF(lwm) THEN
+        REWIND( numnam_ref )              ! Namelist namdct in reference namelist : Diagnostic: transport through sections
+        READ  ( numnam_ref, namdct, IOSTAT = ios, ERR = 901)
+901     IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdct in reference namelist', lwm )
+        REWIND( numnam_cfg )              ! Namelist namdct in configuration namelist : Diagnostic: transport through sections
+        READ  ( numnam_cfg, namdct, IOSTAT = ios, ERR = 902 )
+902     IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdct in configuration namelist', lwm )
+     ENDIF
+
      IF(lwm) WRITE ( numond, namdct )
+
+     CALL dct_namelist()
 
      IF( lwp ) THEN
@@ -1292 +1297 @@
   END FUNCTION interp
 
+  SUBROUTINE dct_namelist()
+     !!---------------------------------------------------------------------
+     !!                   ***  ROUTINE dct_namelist  ***
+     !!                     
+     !! ** Purpose :   Broadcast namelist variables read by procesor lwm
+     !!
+     !! ** Method  :   use lib_mpp
+     !!----------------------------------------------------------------------
+#if defined key_mpp_mpi
+      CALL mpp_bcast(nn_dct)
+      CALL mpp_bcast(nn_dctwri)
+      CALL mpp_bcast(nn_secdebug)
+#endif
+  END SUBROUTINE dct_namelist
+
 #else
    !!----------------------------------------------------------------------