Changeset 7856


Ignore:
Timestamp:
2017-03-31T11:29:22+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
  • branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90

    r5918 r7856  
    440440      TYPE(OBC_DATA), POINTER                ::   dta           ! short cut 
    441441#if defined key_lim3 
    442       INTEGER, DIMENSION(3) ::   zdimsz   ! number of elements in each of the 4 dimensions (i.e. i,j,t,ice-cat) for an array 
    443442      INTEGER               ::   zndims   ! number of dimensions in an array (i.e. 3 = wo ice cat; 4 = w ice cat) 
    444443      INTEGER               ::   inum,id1 ! local integer 
     
    683682               ! 
    684683               CALL iom_open  ( clname, inum ) 
    685                id1 = iom_varid( inum, bn_a_i%clvar, kdimsz=zdimsz, kndims=zndims, ldstop = .FALSE. ) 
     684               id1 = iom_varid( inum, bn_a_i%clvar, kndims=zndims, ldstop = .FALSE. ) 
    686685               CALL iom_close ( inum ) 
    687686 
Note: See TracChangeset for help on using the changeset viewer.