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

branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfini.F90

@@ -35 +35 @@
 
    PUBLIC   zdf_init   ! routine called by opa.F90
+   PRIVATE  zdf_namelist
    
    !!----------------------------------------------------------------------
@@ -57 +58 @@
          &              ln_zdfevd, nn_evdm, rn_avevd, ln_zdfnpc, nn_npc, nn_npcp
       !!----------------------------------------------------------------------
-
-      REWIND( numnam_ref )              ! Namelist namzdf in reference namelist : Vertical mixing parameters
-      READ  ( numnam_ref, namzdf, IOSTAT = ios, ERR = 901)
-901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf in reference namelist', lwp )
-
-      REWIND( numnam_cfg )              ! Namelist namzdf in reference namelist : Vertical mixing parameters
-      READ  ( numnam_cfg, namzdf, IOSTAT = ios, ERR = 902 )
-902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf in configuration namelist', lwp )
+      IF(lwm) THEN
+         REWIND( numnam_ref )              ! Namelist namzdf in reference namelist : Vertical mixing parameters
+         READ  ( numnam_ref, namzdf, IOSTAT = ios, ERR = 901)
+901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf in reference namelist', lwm )
+         REWIND( numnam_cfg )              ! Namelist namzdf in reference namelist : Vertical mixing parameters
+         READ  ( numnam_cfg, namzdf, IOSTAT = ios, ERR = 902 )
+902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf in configuration namelist', lwm )
+      ENDIF
+
       IF(lwm) WRITE ( numond, namzdf )
+
+      CALL zdf_namelist() 
 
       IF(lwp) THEN               !* Parameter print
@@ -189 +193 @@
    END SUBROUTINE zdf_init
 
+   SUBROUTINE zdf_namelist()
+     !!---------------------------------------------------------------------
+     !!                   ***  ROUTINE zdf_namelist  ***
+     !!                     
+     !! ** Purpose :   Broadcast namelist variables read by procesor lwp
+     !!
+     !! ** Method  :   use lib_mpp
+     !!----------------------------------------------------------------------
+#if defined key_mpp_mpi
+      CALL mpp_bcast(rn_avm0)
+      CALL mpp_bcast(rn_avt0)
+      CALL mpp_bcast(nn_avb)
+      CALL mpp_bcast(nn_havtb)
+      CALL mpp_bcast(ln_zdfexp)
+      CALL mpp_bcast(nn_zdfexp)
+      CALL mpp_bcast(ln_zdfevd)
+      CALL mpp_bcast(nn_evdm)
+      CALL mpp_bcast(rn_avevd)
+      CALL mpp_bcast(ln_zdfnpc)
+      CALL mpp_bcast(nn_npc)
+      CALL mpp_bcast(nn_npcp)
+#endif
+   END SUBROUTINE zdf_namelist
+
    !!======================================================================
 END MODULE zdfini