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

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

@@ -62 +62 @@
    PUBLIC   sbc        ! routine called by step.F90
    PUBLIC   sbc_init   ! routine called by opa.F90
+   PRIVATE  sbc_namelist
    
    INTEGER ::   nsbc   ! type of surface boundary condition (deduced from namsbc informations)
@@ -102 +103 @@
          WRITE(numout,*) '~~~~~~~~ '
       ENDIF
-
-      REWIND( numnam_ref )              ! Namelist namsbc in reference namelist : Surface boundary
-      READ  ( numnam_ref, namsbc, IOSTAT = ios, ERR = 901)
-901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in reference namelist', lwp )
-
-      REWIND( numnam_cfg )              ! Namelist namsbc in configuration namelist : Parameters of the run
-      READ  ( numnam_cfg, namsbc, IOSTAT = ios, ERR = 902 )
-902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in configuration namelist', lwp )
+      IF(lwm) THEN
+         REWIND( numnam_ref )              ! Namelist namsbc in reference namelist : Surface boundary
+         READ  ( numnam_ref, namsbc, IOSTAT = ios, ERR = 901)
+901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in reference namelist', lwm )
+         REWIND( numnam_cfg )              ! Namelist namsbc in configuration namelist : Parameters of the run
+         READ  ( numnam_cfg, namsbc, IOSTAT = ios, ERR = 902 )
+902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in configuration namelist', lwm )
+      ENDIF
       IF(lwm) WRITE ( numond, namsbc )
 
+      CALL sbc_namelist()
       !                          ! overwrite namelist parameter using CPP key information
       IF( Agrif_Root() ) THEN                ! AGRIF zoom
@@ -508 +510 @@
    END SUBROUTINE sbc_final
 
+   SUBROUTINE sbc_namelist()
+     !!---------------------------------------------------------------------
+     !!                   ***  ROUTINE sbc_namelist  ***
+     !!                     
+     !! ** Purpose :   Broadcast namelist variables read by procesor lwm
+     !!
+     !! ** Method  :   use lib_mpp
+     !!----------------------------------------------------------------------
+#if defined key_mpp_mpi
+      CALL mpp_bcast(nn_fsbc)
+      CALL mpp_bcast(ln_ana)
+      CALL mpp_bcast(ln_flx)
+      CALL mpp_bcast(ln_blk_clio)
+      CALL mpp_bcast(ln_blk_core)
+      CALL mpp_bcast(ln_mixcpl)
+      CALL mpp_bcast(ln_blk_mfs)
+      CALL mpp_bcast(ln_apr_dyn)
+      CALL mpp_bcast(nn_ice)
+      CALL mpp_bcast(nn_ice_embd)
+      CALL mpp_bcast(ln_dm2dc)
+      CALL mpp_bcast(ln_rnf)
+      CALL mpp_bcast(ln_ssr)
+      CALL mpp_bcast(nn_isf)
+      CALL mpp_bcast(nn_fwb)
+      CALL mpp_bcast(ln_cdgw)
+      CALL mpp_bcast(ln_wave)
+      CALL mpp_bcast(ln_sdw)
+      CALL mpp_bcast(nn_lsm)
+      CALL mpp_bcast(nn_limflx)
+      CALL mpp_bcast(nn_components)
+      CALL mpp_bcast(ln_cpl)
+#endif
+   END SUBROUTINE sbc_namelist
+
    !!======================================================================
 END MODULE sbcmod