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

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

@@ -31 +31 @@
    PUBLIC   sbc_ssr        ! routine called in sbcmod
    PUBLIC   sbc_ssr_init   ! routine called in sbcmod
+   PRIVATE  ssr_namelist
 
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   erp   !: evaporation damping   [kg/m2/s]
@@ -173 +174 @@
  
       ln_ssr_sio = .FALSE.
-      REWIND( numnam_ref )              ! Namelist namsbc_ssr in reference namelist : 
-      READ  ( numnam_ref, namsbc_ssr, IOSTAT = ios, ERR = 901)
-901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ssr in reference namelist', lwp )
-
-      REWIND( numnam_cfg )              ! Namelist namsbc_ssr in configuration namelist :
-      READ  ( numnam_cfg, namsbc_ssr, IOSTAT = ios, ERR = 902 )
-902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ssr in configuration namelist', lwp )
+      IF(lwm) THEN
+         REWIND( numnam_ref )              ! Namelist namsbc_ssr in reference namelist : 
+         READ  ( numnam_ref, namsbc_ssr, IOSTAT = ios, ERR = 901)
+901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ssr in reference namelist', lwm )
+         REWIND( numnam_cfg )              ! Namelist namsbc_ssr in configuration namelist :
+         READ  ( numnam_cfg, namsbc_ssr, IOSTAT = ios, ERR = 902 )
+902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ssr in configuration namelist', lwm )
+      ENDIF
       IF(lwm) WRITE ( numond, namsbc_ssr )
+
+      CALL ssr_namelist(cn_dir, sn_sst, sn_sss)
 
       IF(lwp) THEN                 !* control print
@@ -233 +237 @@
       !
    END SUBROUTINE sbc_ssr_init
-      
+
+   SUBROUTINE ssr_namelist(cd_dir, sd_sst, sd_sss)
+     !!---------------------------------------------------------------------
+     !!                   ***  ROUTINE ssr_namelist  ***
+     !!                     
+     !! ** Purpose :   Broadcast namelist variables read by procesor lwm
+     !!
+     !! ** Method  :   use lib_mpp
+     !!----------------------------------------------------------------------
+      CHARACTER(len=100) ::  cd_dir          ! Root directory for location of ssr files
+      TYPE(FLD_N) ::   sd_sst, sd_sss        ! informations about the fields to be read
+#if defined key_mpp_mpi
+      CALL mpp_bcast(cd_dir, 100)
+      CALL mpp_bcast(nn_sstr)
+      CALL mpp_bcast(nn_sssr)
+      CALL mpp_bcast(rn_dqdt)
+      CALL mpp_bcast(rn_deds)
+      CALL fld_n_bcast(sd_sst)
+      CALL fld_n_bcast(sd_sss)
+      CALL mpp_bcast(ln_sssr_bnd)
+      CALL mpp_bcast(rn_sssr_bnd)
+      CALL mpp_bcast(ln_ssr_sio)
+#endif
+   END SUBROUTINE ssr_namelist      
    !!======================================================================
 END MODULE sbcssr