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

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

@@ -26 +26 @@
    USE ioipsl, ONLY :   ymds2ju, ju2ymds   ! for calendar
    USE sbc_oce
+   USE lib_mpp
    
    IMPLICIT NONE
@@ -33 +34 @@
    PUBLIC   fld_read, fld_fill   ! called by sbc... modules
    PUBLIC   fld_clopn
+   PUBLIC   fld_n_bcast
 
    TYPE, PUBLIC ::   FLD_N      !: Namelist field informations
@@ -1498 +1500 @@
    END SUBROUTINE fld_interp
 
+  SUBROUTINE fld_n_bcast(svar)
+     !!---------------------------------------------------------------------
+     !!                   ***  ROUTINE fld_n_bcast  ***
+     !!                     
+     !! ** Purpose :   Broadcast FLD_N type read from namelist by procesor lwp
+     !!
+     !! ** Method  :   use lib_mpp
+     !!----------------------------------------------------------------------
+     TYPE(FLD_N), INTENT (INOUT) :: svar
+#if defined key_mpp_mpi
+     call mpp_bcast(svar%clname, 256)
+     call mpp_bcast(svar%nfreqh)
+     call mpp_bcast(svar%clvar, 34)
+     call mpp_bcast(svar%ln_tint)
+     call mpp_bcast(svar%ln_clim)
+     call mpp_bcast(svar%cltype, 8)
+     call mpp_bcast(svar%wname, 256)
+     call mpp_bcast(svar%vcomp, 34)
+     call mpp_bcast(svar%lname, 34)
+#endif
+   END SUBROUTINE fld_n_bcast
 
    FUNCTION ksec_week( cdday )