Changeset 13697 for NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/IOM/restart.F90

Timestamp:

2020-10-28T19:14:52+01:00 (3 years ago)

Author:

techene

Message:

cleaning

File:

• NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/IOM/restart.F90 (modified) (1 diff)

NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/IOM/restart.F90

@@ -160 +160 @@
                      CALL iom_rstput( kt, nitrst, numrow, 'sshn'   ,ssh(:,:         ,Kmm), ldxios = lwxios      )
                      CALL iom_rstput( kt, nitrst, numrow, 'rhop'   , rhop, ldxios = lwxios      )
-!!st uncomment in case of dom_qco_read2 usage
-!!#if defined key_qco
-!!                     CALL iom_rstput( kt, nitrst, numrow, 'r3tb'   , r3t(:,:,Kbb) , ldxios = lwxios      )
-!!                     CALL iom_rstput( kt, nitrst, numrow, 'r3ub'   , r3u(:,:,Kbb) , ldxios = lwxios      )
-!!                     CALL iom_rstput( kt, nitrst, numrow, 'r3vb'   , r3v(:,:,Kbb) , ldxios = lwxios      )                     
-!!                     CALL iom_rstput( kt, nitrst, numrow, 'r3tn'   , r3t(:,:,Kmm) , ldxios = lwxios      )
-!!                     CALL iom_rstput( kt, nitrst, numrow, 'r3un'   , r3u(:,:,Kmm) , ldxios = lwxios      )
-!!                     CALL iom_rstput( kt, nitrst, numrow, 'r3vn'   , r3v(:,:,Kmm) , ldxios = lwxios      )
-!!                     CALL iom_rstput( kt, nitrst, numrow, 'r3f'   , r3f(:,:) , ldxios = lwxios      )
-!!#endif 
       ENDIF