Changeset 4694 for branches/2014/dev_r4621_NOC4_BDY_VERT_INTERP/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90

Timestamp:

2014-06-26T12:22:40+02:00 (10 years ago)

Author:

jamesharle

Message:

Update of fldread to handle depth information in BDY files and addition of an interpolation routine. Updated BDY code to handle T/S BDY interpolation on the fly. Conservative remapping of U/V still to be coded. Not compiled or test yet.

File:

• branches/2014/dev_r4621_NOC4_BDY_VERT_INTERP/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90 (modified) (2 diffs)

branches/2014/dev_r4621_NOC4_BDY_VERT_INTERP/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90

@@ -341 +341 @@
                      jend = jstart + dta%nread(1) - 1
                      CALL fld_read( kt=kt, kn_fsbc=1, sd=bf(jstart:jend), &
-                                  & map=nbmap_ptr(jstart:jend), kt_offset=time_offset )
+                                  & map=nbmap_ptr(jstart:jend), kt_offset=time_offset, jpk_bdy=nb_jpk_bdy )
                   ENDIF
                   ! If full velocities in boundary data then split into barotropic and baroclinic data
@@ -746 +746 @@
       ENDDO
 
+      DO jfld = 1, nb_bdy_fld_sum
+               bf(jfld)%igrd = igrid(jfld) 
+               bf(jfld)%ibdy = ibdy(jfld) 
+      ENDDO
+
       ! Initialise local boundary data arrays
       ! nn_xxx_dta=0 : allocate space - will be filled from initial conditions later