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

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

@@ -27 +27 @@
 
    PUBLIC sbc_flx       ! routine called by step.F90
+   PRIVATE flx_namelist
 
    INTEGER , PARAMETER ::   jpfld   = 5   ! maximum number of files to read 
@@ -93 +94 @@
          ! set file information
          ln_lfx_sio = .FALSE.
-         REWIND( numnam_ref )              ! Namelist namsbc_flx in reference namelist : Files for fluxes
-         READ  ( numnam_ref, namsbc_flx, IOSTAT = ios, ERR = 901)
-901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_flx in reference namelist', lwp )
-
-         REWIND( numnam_cfg )              ! Namelist namsbc_flx in configuration namelist : Files for fluxes
-         READ  ( numnam_cfg, namsbc_flx, IOSTAT = ios, ERR = 902 )
-902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_flx in configuration namelist', lwp )
+         IF(lwm) THEN
+            REWIND( numnam_ref )              ! Namelist namsbc_flx in reference namelist : Files for fluxes
+            READ  ( numnam_ref, namsbc_flx, IOSTAT = ios, ERR = 901)
+901         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_flx in reference namelist', lwm )
+            REWIND( numnam_cfg )              ! Namelist namsbc_flx in configuration namelist : Files for fluxes
+            READ  ( numnam_cfg, namsbc_flx, IOSTAT = ios, ERR = 902 )
+902         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_flx in configuration namelist', lwm )
+         ENDIF
          IF(lwm) WRITE ( numond, namsbc_flx ) 
          !
+         CALL flx_namelist(cn_dir, sn_utau, sn_vtau, sn_qtot, sn_qsr, sn_emp)
          !                                         ! check: do we plan to use ln_dm2dc with non-daily forcing?
          IF( ln_dm2dc .AND. sn_qsr%nfreqh /= 24 )   &
@@ -180 +183 @@
    END SUBROUTINE sbc_flx
 
+   SUBROUTINE flx_namelist(cd_dir, sd_utau, sd_vtau, sd_qtot, sd_qsr, sd_emp)
+     !!---------------------------------------------------------------------
+     !!                   ***  ROUTINE flx_namelist  ***
+     !!                     
+     !! ** Purpose :   Broadcast namelist variables read by procesor lwm
+     !!
+     !! ** Method  :   use lib_mpp
+     !!----------------------------------------------------------------------
+      CHARACTER(len=100), INTENT(INOUT) :: cd_dir                                     ! Root directory for location of flx files
+      TYPE(FLD_N), INTENT(INOUT)        :: sd_utau, sd_vtau, sd_qtot, sd_qsr, sd_emp  ! informations about the fields to be read
+#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_qtot)
+      CALL fld_n_bcast(sd_qsr)
+      CALL fld_n_bcast(sd_emp)
+      CALL mpp_bcast(ln_lfx_sio)
+#endif
+   END SUBROUTINE flx_namelist
+
    !!======================================================================
 END MODULE sbcflx