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

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

@@ -62 +62 @@
    PUBLIC   sbc_cpl_ice_flx    ! routine called by sbc_ice_lim(_2).F90
    PUBLIC   sbc_cpl_alloc      ! routine called in sbcice_cice.F90
+   PRIVATE  cpl_namelist
 
    INTEGER, PARAMETER ::   jpr_otx1   =  1            ! 3 atmosphere-ocean stress components on grid 1
@@ -259 +260 @@
       !      Namelist informations       !
       ! ================================ !
-
-      REWIND( numnam_ref )              ! Namelist namsbc_cpl in reference namelist : Variables for OASIS coupling
-      READ  ( numnam_ref, namsbc_cpl, IOSTAT = ios, ERR = 901)
-901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cpl in reference namelist', lwp )
-
-      REWIND( numnam_cfg )              ! Namelist namsbc_cpl in configuration namelist : Variables for OASIS coupling
-      READ  ( numnam_cfg, namsbc_cpl, IOSTAT = ios, ERR = 902 )
-902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cpl in configuration namelist', lwp )
+      IF(lwm) THEN
+         REWIND( numnam_ref )              ! Namelist namsbc_cpl in reference namelist : Variables for OASIS coupling
+         READ  ( numnam_ref, namsbc_cpl, IOSTAT = ios, ERR = 901)
+901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cpl in reference namelist', lwm )
+         REWIND( numnam_cfg )              ! Namelist namsbc_cpl in configuration namelist : Variables for OASIS coupling
+         READ  ( numnam_cfg, namsbc_cpl, IOSTAT = ios, ERR = 902 )
+902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cpl in configuration namelist', lwm )
+      ENDIF
       IF(lwm) WRITE ( numond, namsbc_cpl )
+
+      CALL cpl_namelist()
 
       IF(lwp) THEN                        ! control print
@@ -2536 +2539 @@
       !
    END SUBROUTINE sbc_cpl_snd
-   
+
+   SUBROUTINE cpl_namelist()
+     !!---------------------------------------------------------------------
+     !!                   ***  ROUTINE cpl_namelist  ***
+     !!                     
+     !! ** Purpose :   Broadcast namelist variables read by procesor lwm
+     !!
+     !! ** Method  :   use lib_mpp
+     !!----------------------------------------------------------------------
+#if defined key_mpp_mpi
+      CALL fld_c_bcast(sn_snd_temp)
+      CALL fld_c_bcast(sn_snd_alb)
+      CALL fld_c_bcast(sn_snd_thick)
+      CALL fld_c_bcast(sn_snd_crt)
+      CALL fld_c_bcast(sn_snd_co2)
+      CALL fld_c_bcast(sn_snd_cond)
+      CALL fld_c_bcast(sn_snd_mpnd)
+      CALL fld_c_bcast(sn_snd_sstfrz)
+      CALL fld_c_bcast(sn_snd_thick1)
+      CALL fld_c_bcast(sn_rcv_w10m)
+      CALL fld_c_bcast(sn_rcv_taumod)
+      CALL fld_c_bcast(sn_rcv_tau)
+      CALL fld_c_bcast(sn_rcv_dqnsdt)
+      CALL fld_c_bcast(sn_rcv_qsr)
+      CALL fld_c_bcast(sn_rcv_qns)
+      CALL fld_c_bcast(sn_rcv_emp)
+      CALL fld_c_bcast(sn_rcv_rnf)
+      CALL fld_c_bcast(sn_rcv_cal)
+      CALL fld_c_bcast(sn_rcv_iceflx)
+      CALL fld_c_bcast(sn_rcv_co2)
+      CALL fld_c_bcast(sn_rcv_grnm)
+      CALL fld_c_bcast(sn_rcv_antm)
+      CALL fld_c_bcast(sn_rcv_ts_ice)
+      CALL mpp_bcast(nn_cplmodel)
+      CALL mpp_bcast(ln_usecplmask)
+      CALL mpp_bcast(ln_coupled_iceshelf_fluxes)
+      CALL mpp_bcast(ln_iceshelf_init_atmos)
+      CALL mpp_bcast(rn_greenland_calving_fraction)
+      CALL mpp_bcast(rn_antarctica_calving_fraction)
+      CALL mpp_bcast(rn_iceshelf_fluxes_tolerance)
+      CALL fld_c_bcast(sn_snd_bio_co2)
+      CALL fld_c_bcast(sn_snd_bio_dms)
+      CALL fld_c_bcast(sn_rcv_atm_pco2)
+      CALL fld_c_bcast(sn_rcv_atm_dust)
+#endif
+   END SUBROUTINE cpl_namelist   
+
+   SUBROUTINE fld_c_bcast(sd_name)
+     !!---------------------------------------------------------------------
+     !!                   ***  ROUTINE fld_c_bcast  ***
+     !!                     
+     !! ** Purpose :   Broadcast FLD_C type to all processors 
+     !!
+     !! ** Method  :   use lib_mpp
+     !!----------------------------------------------------------------------
+     TYPE(FLD_C), INTENT(INOUT) :: sd_name
+#if defined key_mpp_mpi
+     CALL mpp_bcast(sd_name%cldes, 32)
+     CALL mpp_bcast(sd_name%clcat, 32)
+     CALL mpp_bcast(sd_name%clvref, 32)
+     CALL mpp_bcast(sd_name%clvor, 32)
+     CALL mpp_bcast(sd_name%clvgrd, 32)
+#endif
+   END SUBROUTINE fld_c_bcast
    !!======================================================================
 END MODULE sbccpl