Changeset 6269 for branches/UKMO/dev_r5518_Surge_Modelling/NEMOGCM/NEMO

Timestamp:

2016-01-22T13:21:33+01:00 (8 years ago)

Author:

rfurner

Message:

some bug fixes and changes to namelists etc

Location:

branches/UKMO/dev_r5518_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC

Files:

• BDY/bdydta.F90 (modified) (1 diff)
• DOM/domain.F90 (modified) (1 diff)

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

@@ -748 +748 @@
       !-------------------------------------
       jstart = 1
-      DO ib_bdy = 1, nb_bdy
-         jend = jstart - 1 + nb_bdy_fld(ib_bdy) 
-         CALL fld_fill( bf(jstart:jend), blf_i(jstart:jend), cn_dir_array(ib_bdy), 'bdy_dta',   &
-         &              'open boundary conditions', 'nambdy_dta' )
-         jstart = jend + 1
-      ENDDO
+      IF (size(bf) /= 0) THEN
+         DO ib_bdy = 1, nb_bdy
+            jend = jstart - 1 + nb_bdy_fld(ib_bdy) 
+            CALL fld_fill( bf(jstart:jend), blf_i(jstart:jend), cn_dir_array(ib_bdy), 'bdy_dta',   &
+            &              'open boundary conditions', 'nambdy_dta' )
+            jstart = jend + 1
+         ENDDO
+      ENDIF
 
       ! Initialise local boundary data arrays

branches/UKMO/dev_r5518_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

@@ -138 +138 @@
       NAMELIST/namrun/ cn_ocerst_indir, cn_ocerst_outdir, nn_stocklist, ln_rst_list,               &
          &             nn_no   , cn_exp    , cn_ocerst_in, cn_ocerst_out, ln_rstart , nn_rstctl,   &
-         &             ln_rstdate                                                                  &
+         &             ln_rstdate,                                                                 &
          &             nn_it000, nn_itend  , nn_date0    , nn_leapy     , nn_istate , nn_stock ,   &
          &             nn_write, ln_dimgnnn, ln_mskland  , ln_cfmeta    , ln_clobber, nn_chunksz, nn_euler