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

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

@@ -36 +36 @@
    PUBLIC   sbc_rnf_alloc ! routine call in sbcmod module
    PUBLIC   sbc_rnf_init  ! (PUBLIC for TAM)
+   PRIVATE  rnf_namelist
    !                                                     !!* namsbc_rnf namelist *
    CHARACTER(len=100)         ::   cn_dir          !: Root directory for location of rnf files
@@ -283 +284 @@
       !
       ln_rnf_sio = .FALSE.
-      REWIND( numnam_ref )              ! Namelist namsbc_rnf in reference namelist : Runoffs 
-      READ  ( numnam_ref, namsbc_rnf, IOSTAT = ios, ERR = 901)
-901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_rnf in reference namelist', lwp )
-
-      REWIND( numnam_cfg )              ! Namelist namsbc_rnf in configuration namelist : Runoffs
-      READ  ( numnam_cfg, namsbc_rnf, IOSTAT = ios, ERR = 902 )
-902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_rnf in configuration namelist', lwp )
+      IF(lwm) THEN
+         REWIND( numnam_ref )              ! Namelist namsbc_rnf in reference namelist : Runoffs 
+         READ  ( numnam_ref, namsbc_rnf, IOSTAT = ios, ERR = 901)
+901      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_rnf in reference namelist', lwm )
+         REWIND( numnam_cfg )              ! Namelist namsbc_rnf in configuration namelist : Runoffs
+         READ  ( numnam_cfg, namsbc_rnf, IOSTAT = ios, ERR = 902 )
+902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_rnf in configuration namelist', lwm )
+      ENDIF
       IF(lwm) WRITE ( numond, namsbc_rnf )
       !
+      CALL rnf_namelist()
       !                                         ! Control print
       IF(lwp) THEN
@@ -541 +544 @@
    END SUBROUTINE rnf_mouth
 
+   SUBROUTINE rnf_namelist()
+     !!---------------------------------------------------------------------
+     !!                   ***  ROUTINE rnf_namelist  ***
+     !!                     
+     !! ** Purpose :   Broadcast namelist variables read by procesor lwm
+     !!
+     !! ** Method  :   use lib_mpp
+     !!----------------------------------------------------------------------
+#if defined key_mpp_mpi
+      CALL mpp_bcast(cn_dir, 100)
+      CALL mpp_bcast(ln_rnf_depth)
+      CALL mpp_bcast(ln_rnf_tem)
+      CALL mpp_bcast(ln_rnf_sal)
+      CALL fld_n_bcast(sn_rnf)
+      CALL fld_n_bcast(sn_cnf)
+      CALL fld_n_bcast(sn_s_rnf)
+      CALL fld_n_bcast(sn_t_rnf)
+      CALL fld_n_bcast(sn_dep_rnf)
+      CALL mpp_bcast(ln_rnf_mouth)
+      CALL mpp_bcast(rn_hrnf)
+      CALL mpp_bcast(rn_avt_rnf)
+      CALL mpp_bcast(rn_rfact)
+      CALL mpp_bcast(ln_rnf_depth_ini)
+      CALL mpp_bcast(rn_dep_max)
+      CALL mpp_bcast(rn_rnf_max)
+      CALL mpp_bcast(nn_rnf_depth_file)
+      CALL mpp_bcast(ln_rnf_sio)
+#endif
+   END SUBROUTINE rnf_namelist
    !!======================================================================
 END MODULE sbcrnf