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

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

@@ -52 +52 @@
    PUBLIC blk_ice_clio_flx    ! routine called by sbcice_lim.F90 
 #endif
+   PRIVATE clio_namelist
 
    INTEGER , PARAMETER ::   jpfld   = 7           ! maximum number of files to read 
@@ -145 +146 @@
          !                                      ! ====================== !
          ln_clio_sio = .FALSE.
-         REWIND( numnam_ref )              ! Namelist namsbc_clio in reference namelist : CLIO files
-         READ  ( numnam_ref, namsbc_clio, IOSTAT = ios, ERR = 901)
-901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_clio in reference namelist', lwp )
-
-         REWIND( numnam_cfg )              ! Namelist namsbc_clio in configuration namelist : CLIO files
-         READ  ( numnam_cfg, namsbc_clio, IOSTAT = ios, ERR = 902 )
-902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_clio in configuration namelist', lwp )
+         IF(lwm) THEN
+            REWIND( numnam_ref )              ! Namelist namsbc_clio in reference namelist : CLIO files
+            READ  ( numnam_ref, namsbc_clio, IOSTAT = ios, ERR = 901)
+901         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_clio in reference namelist', lwm )
+            REWIND( numnam_cfg )              ! Namelist namsbc_clio in configuration namelist : CLIO files
+            READ  ( numnam_cfg, namsbc_clio, IOSTAT = ios, ERR = 902 )
+902         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_clio in configuration namelist', lwm )
+         ENDIF
          IF(lwm) WRITE ( numond, namsbc_clio )
+
+         CALL clio_namelist(cn_dir, sn_utau, sn_vtau, sn_wndm, sn_tair, sn_humi, &
+         &                  sn_ccov, sn_prec)
 
          ! store namelist information in an array
@@ -1072 +1077 @@
    END SUBROUTINE flx_blk_declin
 
+   SUBROUTINE clio_namelist(cd_dir, sd_utau, sd_vtau, sd_wndm, sd_tair, sd_humi, &
+         &                  sd_ccov, sd_prec)
+     !!---------------------------------------------------------------------
+     !!                   ***  ROUTINE clio_namelist  ***
+     !!                     
+     !! ** Purpose :   Broadcast namelist variables read by procesor lwm
+     !!
+     !! ** Method  :   use lib_mpp
+     !!----------------------------------------------------------------------
+      CHARACTER(len=100) ::  cd_dir                            ! Root directory for location of CLIO files
+      TYPE(FLD_N) ::   sd_utau, sd_vtau, sd_wndm, sd_tair      ! informations about the fields to be read
+      TYPE(FLD_N) ::   sd_humi, sd_ccov, sd_prec               ! 
+#if defined key_mpp_mpi
+      CALL mpp_bcast(cd_dir, 100)
+      CALL fld_n_bcast(sd_utau)
+      CALL fld_n_bcast(sd_vtau)
+      CALL fld_n_bcast(sd_wndm)
+      CALL fld_n_bcast(sd_humi)
+      CALL fld_n_bcast(sd_ccov)
+      CALL fld_n_bcast(sd_tair)
+      CALL fld_n_bcast(sd_prec)
+      CALL mpp_bcast(ln_clio_sio)
+#endif
+   END SUBROUTINE clio_namelist
+
    !!======================================================================
 END MODULE sbcblk_clio