Changeset 13697
- Timestamp:
- 2020-10-28T19:14:52+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13327_KERNEL-06_2_techene_e3/src/OCE/IOM/restart.F90
r13427 r13697 160 160 CALL iom_rstput( kt, nitrst, numrow, 'sshn' ,ssh(:,: ,Kmm), ldxios = lwxios ) 161 161 CALL iom_rstput( kt, nitrst, numrow, 'rhop' , rhop, ldxios = lwxios ) 162 !!st uncomment in case of dom_qco_read2 usage163 !!#if defined key_qco164 !! 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 !!#endif172 162 ENDIF 173 163
Note: See TracChangeset
for help on using the changeset viewer.