Changeset 7857


Ignore:
Timestamp:
2017-03-31T11:32:54+02:00 (3 years ago)
Author:
clem
Message:

debug LIM3+BDY for the capability of having LIM3 as lateral input

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90

    r7646 r7857  
    443443      TYPE(OBC_DATA), POINTER                ::   dta           ! short cut 
    444444#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 array 
    446445      INTEGER               ::   zndims   ! number of dimensions in an array (i.e. 3 = wo ice cat; 4 = w ice cat) 
    447446      INTEGER               ::   inum,id1 ! local integer 
     
    686685               ! 
    687686               CALL iom_open  ( clname, inum ) 
    688                id1 = iom_varid( inum, bn_a_i%clvar, kdimsz=zdimsz, kndims=zndims, ldstop = .FALSE. ) 
     687               id1 = iom_varid( inum, bn_a_i%clvar, kndims=zndims, ldstop = .FALSE. ) 
    689688               CALL iom_close ( inum ) 
    690689 
Note: See TracChangeset for help on using the changeset viewer.