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

branches/UKMO/test_moci_test_suite_namelist_read/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90

@@ -43 +43 @@
    PUBLIC   bdy_dta          ! routine called by step.F90 and dynspg_ts.F90
    PUBLIC   bdy_dta_init     ! routine called by nemogcm.F90
+   PRIVATE  dta_namelist
 
    INTEGER, ALLOCATABLE, DIMENSION(:)   ::   nb_bdy_fld        ! Number of fields to update for each boundary set.
@@ -524 +525 @@
       ! Read namelists
       ! --------------
-      REWIND(numnam_ref)
-      REWIND(numnam_cfg)
+      IF(lwm) THEN
+         REWIND(numnam_ref)
+         REWIND(numnam_cfg)
+      ENDIF
       jfld = 0 
       DO ib_bdy = 1, nb_bdy         
          IF( nn_dta(ib_bdy) .eq. 1 ) THEN
-            READ  ( numnam_ref, nambdy_dta, IOSTAT = ios, ERR = 901)
-901         IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_dta in reference namelist', lwp )
-
-            READ  ( numnam_cfg, nambdy_dta, IOSTAT = ios, ERR = 902 )
-902         IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_dta in configuration namelist', lwp )
+            IF(lwm) THEN
+               READ  ( numnam_ref, nambdy_dta, IOSTAT = ios, ERR = 901)
+901            IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_dta in reference namelist', lwm )
+               READ  ( numnam_cfg, nambdy_dta, IOSTAT = ios, ERR = 902 )
+902            IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_dta in configuration namelist', lwm )
+            ENDIF
+
             IF(lwm) WRITE ( numond, nambdy_dta )
+
+            CALL dta_namelist(cn_dir, bn_tem, bn_sal, bn_u3d, bn_v3d, bn_ssh, bn_u2d, bn_v2d, ln_full_vel)
+
+#if defined key_lim2
+            CALL lim_namelist(bn_frld, bn_hicif, bn_hsnif)
+#elif defined key_lim3
+            CALL lim_namelist(bn_a_i, bn_ht_i, bn_ht_s)
+#endif
 
             cn_dir_array(ib_bdy) = cn_dir
@@ -899 +912 @@
 
       END SUBROUTINE bdy_dta_init
+
+   SUBROUTINE dta_namelist(cd_dir, bd_tem, bd_sal, bd_u3d, bd_v3d, bd_ssh, &
+            &              bd_u2d, bd_v2d, ln_full_vel)
+     !!---------------------------------------------------------------------
+     !!                   ***  ROUTINE dta_namelist  ***
+     !!                     
+     !! ** Purpose :   Broadcast namelist variables read by procesor lwm
+     !!
+     !! ** Method  :   use lib_mpp
+     !!----------------------------------------------------------------------
+      CHARACTER(len=100) ::   cd_dir
+      TYPE(FLD_N)        ::   bd_tem, bd_sal, bd_u3d, bd_v3d   ! 
+      TYPE(FLD_N)        ::   bd_ssh, bd_u2d, bd_v2d
+#if defined key_mpp_mpi
+      CALL mpp_bcast(cd_dir, 100)
+      CALL fld_n_bcast(bd_tem)
+      CALL fld_n_bcast(bd_sal)
+      CALL fld_n_bcast(bd_u3d)
+      CALL fld_n_bcast(bd_v3d)
+      CALL fld_n_bcast(bd_ssh)
+      CALL fld_n_bcast(bd_u2d)
+      CALL fld_n_bcast(bd_v2d)
+      CALL mpp_bcast(ln_bdy_sio)
+      CALL mpp_bcast(ln_full_vel)
+#endif
+   END SUBROUTINE dta_namelist
+
+   SUBROUTINE lim_namelist(bd_1, bd_2, bd_3)
+     !!---------------------------------------------------------------------
+     !!                   ***  ROUTINE lim_namelist  ***
+     !!                     
+     !! ** Purpose :   Broadcast namelist variables read by procesor lwm
+     !!
+     !! ** Method  :   use lib_mpp
+     !!----------------------------------------------------------------------
+      TYPE(FLD_N) ::   bd_1, bd_2, bd_3
+#if defined key_mpp_mpi
+      CALL fld_n_bcast(bd_1)
+      CALL fld_n_bcast(bd_2)
+      CALL fld_n_bcast(bd_3)
+#endif
+   END SUBROUTINE lim_namelist
 
 #else