Changeset 13697


Ignore:
Timestamp:
2020-10-28T19:14:52+01:00 (6 months ago)
Author:
techene
Message:

cleaning

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/IOM/restart.F90

    r13427 r13697  
    160160                     CALL iom_rstput( kt, nitrst, numrow, 'sshn'   ,ssh(:,:         ,Kmm), ldxios = lwxios      ) 
    161161                     CALL iom_rstput( kt, nitrst, numrow, 'rhop'   , rhop, ldxios = lwxios      ) 
    162 !!st uncomment in case of dom_qco_read2 usage 
    163 !!#if defined key_qco 
    164 !!                     CALL iom_rstput( kt, nitrst, numrow, 'r3tb'   , r3t(:,:,Kbb) , ldxios = lwxios      ) 
    165 !!                     CALL iom_rstput( kt, nitrst, numrow, 'r3ub'   , r3u(:,:,Kbb) , ldxios = lwxios      ) 
    166 !!                     CALL iom_rstput( kt, nitrst, numrow, 'r3vb'   , r3v(:,:,Kbb) , ldxios = lwxios      )                      
    167 !!                     CALL iom_rstput( kt, nitrst, numrow, 'r3tn'   , r3t(:,:,Kmm) , ldxios = lwxios      ) 
    168 !!                     CALL iom_rstput( kt, nitrst, numrow, 'r3un'   , r3u(:,:,Kmm) , ldxios = lwxios      ) 
    169 !!                     CALL iom_rstput( kt, nitrst, numrow, 'r3vn'   , r3v(:,:,Kmm) , ldxios = lwxios      ) 
    170 !!                     CALL iom_rstput( kt, nitrst, numrow, 'r3f'   , r3f(:,:) , ldxios = lwxios      ) 
    171 !!#endif  
    172162      ENDIF 
    173163       
Note: See TracChangeset for help on using the changeset viewer.