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

branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

@@ -37 +37 @@
    PUBLIC   dom_msk         ! routine called by inidom.F90
    PUBLIC   dom_msk_alloc   ! routine called by nemogcm.F90
+   PRIVATE  msk_namelist
 
    !                            !!* Namelist namlbc : lateral boundary condition *
@@ -147 +148 @@
       CALL wrk_alloc( jpi, jpj, zwf  )
       !
-      REWIND( numnam_ref )              ! Namelist namlbc in reference namelist : Lateral momentum boundary condition
-      READ  ( numnam_ref, namlbc, IOSTAT = ios, ERR = 901 )
-901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlbc in reference namelist', lwp )
-
-      REWIND( numnam_cfg )              ! Namelist namlbc in configuration namelist : Lateral momentum boundary condition
-      READ  ( numnam_cfg, namlbc, IOSTAT = ios, ERR = 902 )
-902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlbc in configuration namelist', lwp )
+      IF(lwm) THEN
+         REWIND( numnam_ref )              ! Namelist namlbc in reference namelist : Lateral momentum boundary condition
+         READ  ( numnam_ref, namlbc, IOSTAT = ios, ERR = 901 )
+901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlbc in reference namelist', lwm )
+         REWIND( numnam_cfg )              ! Namelist namlbc in configuration namelist : Lateral momentum boundary condition
+         READ  ( numnam_cfg, namlbc, IOSTAT = ios, ERR = 902 )
+902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlbc in configuration namelist', lwm )
+      ENDIF
+
       IF(lwm) WRITE ( numond, namlbc )
-      
+     
+      CALL msk_namelist() 
+
       IF(lwp) THEN                  ! control print
          WRITE(numout,*)
@@ -717 +722 @@
    END SUBROUTINE dom_msk_nsa
 #endif
-   
+
+   SUBROUTINE msk_namelist()
+     !!---------------------------------------------------------------------
+     !!                   ***  ROUTINE msk_namelist  ***
+     !!                     
+     !! ** Purpose :   Broadcast namelist variables read by procesor lwm
+     !!
+     !! ** Method  :   use lib_mpp
+     !!----------------------------------------------------------------------
+#if defined key_mpp_mpi
+      CALL mpp_bcast(rn_shlat)
+      CALL mpp_bcast( ln_vorlat)
+#endif
+   END SUBROUTINE msk_namelist   
+
    !!======================================================================
 END MODULE dommsk