Changeset 4693


Ignore:
Timestamp:
2014-06-26T11:48:25+02:00 (7 years ago)
Author:
clem
Message:

change lk_vvl by lk_lim3 in restart file to get/put fse3t since it is only necessary for lim3

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

    r4689 r4693  
    120120                     CALL iom_rstput( kt, nitrst, numrow, 'hdivb'  , hdivb     ) 
    121121                     CALL iom_rstput( kt, nitrst, numrow, 'sshb'   , sshb      ) 
    122       IF( lk_vvl )   CALL iom_rstput( kt, nitrst, numrow, 'fse3t_b', fse3t_b(:,:,:) ) 
     122      IF( lk_lim3 )  CALL iom_rstput( kt, nitrst, numrow, 'fse3t_b', fse3t_b(:,:,:) ) 
    123123                     ! 
    124124                     CALL iom_rstput( kt, nitrst, numrow, 'un'     , un        )     ! now fields 
     
    211211         CALL iom_get( numror, jpdom_autoglo, 'hdivb'  , hdivb   ) 
    212212         CALL iom_get( numror, jpdom_autoglo, 'sshb'   , sshb    ) 
    213          IF( lk_vvl )   CALL iom_get( numror, jpdom_autoglo, 'fse3t_b', fse3t_b(:,:,:) ) 
     213         IF( lk_lim3 )   CALL iom_get( numror, jpdom_autoglo, 'fse3t_b', fse3t_b(:,:,:) ) 
    214214      ELSE 
    215215         neuler = 0 
     
    247247         hdivb(:,:,:)   = hdivn(:,:,:) 
    248248         sshb (:,:)     = sshn (:,:) 
    249          IF( lk_vvl ) THEN 
     249         IF( lk_lim3 ) THEN 
    250250            DO jk = 1, jpk 
    251251               fse3t_b(:,:,jk) = fse3t_n(:,:,jk) 
Note: See TracChangeset for help on using the changeset viewer.