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

branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra.F90

@@ -29 +29 @@
 
    PUBLIC   ldf_tra_init   ! called by opa.F90
+   PRIVATE  tra_namelist
 
    !! * Substitutions
@@ -77 +78 @@
       ! =============================================
     
-
-      REWIND( numnam_ref )              ! Namelist namtra_ldf in reference namelist : Lateral physics on tracers
-      READ  ( numnam_ref, namtra_ldf, IOSTAT = ios, ERR = 901)
-901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_ldf in reference namelist', lwp )
-
-      REWIND( numnam_cfg )              ! Namelist namtra_ldf in configuration namelist : Lateral physics on tracers
-      READ  ( numnam_cfg, namtra_ldf, IOSTAT = ios, ERR = 902 )
-902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_ldf in configuration namelist', lwp )
+      IF(lwm) THEN
+         REWIND( numnam_ref )              ! Namelist namtra_ldf in reference namelist : Lateral physics on tracers
+         READ  ( numnam_ref, namtra_ldf, IOSTAT = ios, ERR = 901)
+901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_ldf in reference namelist', lwm )
+         REWIND( numnam_cfg )              ! Namelist namtra_ldf in configuration namelist : Lateral physics on tracers
+         READ  ( numnam_cfg, namtra_ldf, IOSTAT = ios, ERR = 902 )
+902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_ldf in configuration namelist', lwm )
+      ENDIF
       IF(lwm) WRITE ( numond, namtra_ldf )
+
+      CALL tra_namelist()
 
       IF(lwp) THEN                      ! control print
@@ -179 +182 @@
    END SUBROUTINE ldf_tra_init
 
+   SUBROUTINE tra_namelist()
+     !!---------------------------------------------------------------------
+     !!                   ***  ROUTINE tra_namelist  ***
+     !!                     
+     !! ** Purpose :   Broadcast namelist variables read by procesor lwm
+     !!
+     !! ** Method  :   use lib_mpp
+     !!----------------------------------------------------------------------
+#if defined key_mpp_mpi
+      CALL mpp_bcast(ln_traldf_lap)
+      CALL mpp_bcast(ln_traldf_bilap)
+      CALL mpp_bcast(ln_traldf_level)
+      CALL mpp_bcast(ln_traldf_hor)
+      CALL mpp_bcast(ln_traldf_iso)
+      CALL mpp_bcast(ln_traldf_grif)
+      CALL mpp_bcast(ln_traldf_gdia)
+      CALL mpp_bcast(ln_triad_iso)
+      CALL mpp_bcast(ln_botmix_grif)
+      CALL mpp_bcast(rn_aht_0)
+      CALL mpp_bcast(rn_ahtb_0)
+      CALL mpp_bcast(rn_aeiv_0)
+      CALL mpp_bcast(rn_slpmax)
+      CALL mpp_bcast(rn_chsmag)
+      CALL mpp_bcast(rn_smsh)
+      CALL mpp_bcast(rn_aht_m)
+#endif
+   END SUBROUTINE tra_namelist
+
 #if defined key_traldf_c3d
 #   include "ldftra_c3d.h90"