- Timestamp:
- 2017-11-29T05:08:05+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/ROMS_WAD_7832/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90
r7646 r8841 266 266 IF( ln_full_vel_array(ib_bdy) ) THEN 267 267 CALL fld_read( kt=kt, kn_fsbc=1, sd=bf(jstart:jend), map=nbmap_ptr(jstart:jend), & 268 & kit=jit, kt_offset=time_offset , jpk_bdy=nb_jpk_bdy, fvl=ln_full_vel_array(ib_bdy) ) 268 & kit=jit, kt_offset=time_offset , jpk_bdy=nb_jpk_bdy, & 269 & fvl=ln_full_vel_array(ib_bdy) ) 269 270 ELSE 270 271 CALL fld_read( kt=kt, kn_fsbc=1, sd=bf(jstart:jend), map=nbmap_ptr(jstart:jend), & … … 335 336 jend = jstart + dta%nread(1) - 1 336 337 CALL fld_read( kt=kt, kn_fsbc=1, sd=bf(jstart:jend), & 337 & map=nbmap_ptr(jstart:jend), kt_offset=time_offset, jpk_bdy=nb_jpk_bdy, fvl=ln_full_vel_array(ib_bdy) ) 338 & map=nbmap_ptr(jstart:jend), kt_offset=time_offset, jpk_bdy=nb_jpk_bdy, & 339 & fvl=ln_full_vel_array(ib_bdy) ) 338 340 ENDIF 339 341 ! If full velocities in boundary data then split into barotropic and baroclinic data … … 443 445 TYPE(OBC_DATA), POINTER :: dta ! short cut 444 446 #if defined key_lim3 445 INTEGER, DIMENSION(3) :: zdimsz ! number of elements in each of the 4 dimensions (i.e. i,j,t,ice-cat) for an array446 447 INTEGER :: zndims ! number of dimensions in an array (i.e. 3 = wo ice cat; 4 = w ice cat) 447 448 INTEGER :: inum,id1 ! local integer … … 675 676 ! Test for types of ice input (lim2 or lim3) 676 677 ! Build file name to find dimensions 677 clname=TRIM( bn_a_i%clname)678 clname=TRIM( cn_dir )//TRIM(bn_a_i%clname) 678 679 IF( .NOT. bn_a_i%ln_clim ) THEN 679 WRITE(clname, '(a,"_y",i4.4)' ) TRIM( bn_a_i%clname ), nyear ! add year680 IF( bn_a_i%cltype /= 'yearly' ) WRITE(clname, '(a,"m" ,i2.2)' ) TRIM( clname 680 WRITE(clname, '(a,"_y",i4.4)' ) TRIM( clname ), nyear ! add year 681 IF( bn_a_i%cltype /= 'yearly' ) WRITE(clname, '(a,"m" ,i2.2)' ) TRIM( clname ), nmonth ! add month 681 682 ELSE 682 IF( bn_a_i%cltype /= 'yearly' ) WRITE(clname, '(a,"_m",i2.2)' ) TRIM( bn_a_i%clname ), nmonth ! add month683 IF( bn_a_i%cltype /= 'yearly' ) WRITE(clname, '(a,"_m",i2.2)' ) TRIM( clname ), nmonth ! add month 683 684 ENDIF 684 685 IF( bn_a_i%cltype == 'daily' .OR. bn_a_i%cltype(1:4) == 'week' ) & 685 & WRITE(clname, '(a,"d" ,i2.2)' ) TRIM( clname 686 & WRITE(clname, '(a,"d" ,i2.2)' ) TRIM( clname ), nday ! add day 686 687 ! 687 688 CALL iom_open ( clname, inum ) 688 id1 = iom_varid( inum, bn_a_i%clvar, k dimsz=zdimsz, kndims=zndims, ldstop = .FALSE. )689 id1 = iom_varid( inum, bn_a_i%clvar, kndims=zndims, ldstop = .FALSE. ) 689 690 CALL iom_close ( inum ) 690 691
Note: See TracChangeset
for help on using the changeset viewer.