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

branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90

@@ -53 +53 @@
    IMPLICIT NONE
    PRIVATE
+   PRIVATE bn2_namelist
 
    !                   !! * Interface
@@ -1232 +1233 @@
       !!----------------------------------------------------------------------
       !
-      REWIND( numnam_ref )              ! Namelist nameos in reference namelist : equation of state
-      READ  ( numnam_ref, nameos, IOSTAT = ios, ERR = 901 )
-901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nameos in reference namelist', lwp )
-      !
-      REWIND( numnam_cfg )              ! Namelist nameos in configuration namelist : equation of state
-      READ  ( numnam_cfg, nameos, IOSTAT = ios, ERR = 902 )
-902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nameos in configuration namelist', lwp )
+      IF(lwm) THEN
+         REWIND( numnam_ref )              ! Namelist nameos in reference namelist : equation of state
+         READ  ( numnam_ref, nameos, IOSTAT = ios, ERR = 901 )
+901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nameos in reference namelist', lwm )
+         REWIND( numnam_cfg )              ! Namelist nameos in configuration namelist : equation of state
+         READ  ( numnam_cfg, nameos, IOSTAT = ios, ERR = 902 )
+902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nameos in configuration namelist', lwm )
+      ENDIF
       IF(lwm) WRITE( numond, nameos )
       !
@@ -1244 +1246 @@
       rcp         = 3991.86795711963_wp      !: heat capacity     [J/K]
       !
+      call bn2_namelist()
+
       IF(lwp) THEN                ! Control print
          WRITE(numout,*)
@@ -1675 +1679 @@
    END SUBROUTINE eos_init
 
+   SUBROUTINE bn2_namelist()
+     !!---------------------------------------------------------------------
+     !!                   ***  ROUTINE bn2_namelist  ***
+     !!                     
+     !! ** Purpose :   Broadcast namelist variables read by procesor lwm
+     !!
+     !! ** Method  :   use lib_mpp
+     !!----------------------------------------------------------------------
+#if defined key_mpp_mpi
+      CALL mpp_bcast(nn_eos)
+      CALL mpp_bcast(ln_useCT)
+      CALL mpp_bcast(rn_a0)
+      CALL mpp_bcast(rn_b0)
+      CALL mpp_bcast(rn_lambda1)
+      CALL mpp_bcast(rn_mu1)
+      CALL mpp_bcast(rn_lambda2)
+      CALL mpp_bcast(rn_mu2)
+      CALL mpp_bcast(rn_nu)
+#endif
+   END SUBROUTINE bn2_namelist
    !!======================================================================
 END MODULE eosbn2