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

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

@@ -40 +40 @@
    !! dyn_nept_div_cur_init   is called only by dyn_nept_init, within this module
    !! dyn_nept_vel            is called only by dyn_nept_cor,  within this module
+   PRIVATE nept_namelist
 
    !! * Shared module variables
@@ -118 +119 @@
       ! Define the (simplified) Neptune parameters
       ! ==========================================
-
-      REWIND( numnam_ref )              ! Namelist namdyn_nept in reference namelist : Simplified Neptune
-      READ  ( numnam_ref, namdyn_nept, IOSTAT = ios, ERR = 901)
-901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_nept in reference namelist', lwp )
-
-      REWIND( numnam_cfg )              ! Namelist namdyn_nept in reference namelist : Simplified Neptune
-      READ  ( numnam_cfg, namdyn_nept, IOSTAT = ios, ERR = 902 )
-902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_nept in configuration namelist', lwp )
+      IF(lwm) THEN
+         REWIND( numnam_ref )              ! Namelist namdyn_nept in reference namelist : Simplified Neptune
+         READ  ( numnam_ref, namdyn_nept, IOSTAT = ios, ERR = 901)
+901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_nept in reference namelist', lwm )
+         REWIND( numnam_cfg )              ! Namelist namdyn_nept in reference namelist : Simplified Neptune
+         READ  ( numnam_cfg, namdyn_nept, IOSTAT = ios, ERR = 902 )
+902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_nept in configuration namelist', lwm )
+      ENDIF
+
       IF(lwm) WRITE ( numond, namdyn_nept )
+
+      CALL nept_namelist()
 
       IF(lwp) THEN                      ! Control print
@@ -595 +599 @@
    END SUBROUTINE dyn_nept_smooth_vel
 
+   SUBROUTINE nept_namelist()
+     !!---------------------------------------------------------------------
+     !!                   ***  ROUTINE nept_namelist  ***
+     !!                     
+     !! ** Purpose :   Broadcast namelist variables read by procesor lwm
+     !!
+     !! ** Method  :   use lib_mpp
+     !!----------------------------------------------------------------------
+#if defined key_mpp_mpi
+      CALL mpp_bcast(ln_neptsimp)
+      CALL mpp_bcast(ln_smooth_neptvel)
+      CALL mpp_bcast(rn_tslse)
+      CALL mpp_bcast(rn_tslsp)
+      CALL mpp_bcast(ln_neptramp)
+      CALL mpp_bcast(rn_htrmin)
+      CALL mpp_bcast(rn_htrmax)
+#endif
+   END SUBROUTINE nept_namelist
 END MODULE dynnept