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

branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/SBC/sbcapr.F90

@@ -25 +25 @@
 
    PUBLIC   sbc_apr    ! routine called in sbcmod
+   PRIVATE  sio_namelist
    
    !                                !!* namsbc_apr namelist (Atmospheric PRessure) *
@@ -80 +81 @@
          !                                      ! -------------------- !
          ln_apr_sio = .FALSE.
-         REWIND( numnam_ref )              ! Namelist namsbc_apr in reference namelist : File for atmospheric pressure forcing
-         READ  ( numnam_ref, namsbc_apr, IOSTAT = ios, ERR = 901)
-901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_apr in reference namelist', lwp )
+         IF(lwm) THEN
+            REWIND( numnam_ref )              ! Namelist namsbc_apr in reference namelist : File for atmospheric pressure forcing
+            READ  ( numnam_ref, namsbc_apr, IOSTAT = ios, ERR = 901)
+901         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_apr in reference namelist', lwm )
+            REWIND( numnam_cfg )              ! Namelist namsbc_apr in configuration namelist : File for atmospheric pressure forcing
+            READ  ( numnam_cfg, namsbc_apr, IOSTAT = ios, ERR = 902 )
+902         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_apr in configuration namelist', lwm )
+         ENDIF
 
-         REWIND( numnam_cfg )              ! Namelist namsbc_apr in configuration namelist : File for atmospheric pressure forcing
-         READ  ( numnam_cfg, namsbc_apr, IOSTAT = ios, ERR = 902 )
-902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_apr in configuration namelist', lwp )
          IF(lwm) WRITE ( numond, namsbc_apr )
+
+         CALL sio_namelist(cn_dir, sn_apr)
          !
          ALLOCATE( sf_apr(1), STAT=ierror )           !* allocate and fill sf_sst (forcing structure) with sn_sst
@@ -168 +173 @@
       !
    END SUBROUTINE sbc_apr
+
+   SUBROUTINE sio_namelist(cd_dir, sd_apr)
+     !!---------------------------------------------------------------------
+     !!                   ***  ROUTINE sio_namelist  ***
+     !!                     
+     !! ** Purpose :   Broadcast namelist variables read by procesor lwm
+     !!
+     !! ** Method  :   use lib_mpp
+     !!----------------------------------------------------------------------
+      CHARACTER(len=100) ::  cd_dir   ! Root directory for location of ssr files
+      TYPE(FLD_N)        ::  sd_apr   ! informations about the fields to be read
+
+#if defined key_mpp_mpi
+      CALL mpp_bcast(cd_dir, 100)
+      CALL fld_n_bcast(sd_apr)
+      CALL mpp_bcast(ln_ref_apr)
+      CALL mpp_bcast(rn_pref)
+      CALL mpp_bcast(ln_apr_obc)
+#endif
+   END SUBROUTINE sio_namelist
       
    !!======================================================================