- Timestamp:
- 2016-10-29T01:21:05+02:00 (8 years ago)
- Location:
- branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/OPA_SRC/IOM
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r7069 r7158 1813 1813 idx = INDEX(clname,'@startdate@') + INDEX(clname,'@STARTDATE@') 1814 1814 DO WHILE ( idx /= 0 ) 1815 cldate = iom_sdate( fjulday - rdt tra(1)/ rday )1815 cldate = iom_sdate( fjulday - rdt / rday ) 1816 1816 clname = clname(1:idx-1)//TRIM(cldate)//clname(idx+11:LEN_TRIM(clname)) 1817 1817 idx = INDEX(clname,'@startdate@') + INDEX(clname,'@STARTDATE@') … … 1820 1820 idx = INDEX(clname,'@startdatefull@') + INDEX(clname,'@STARTDATEFULL@') 1821 1821 DO WHILE ( idx /= 0 ) 1822 cldate = iom_sdate( fjulday - rdt tra(1)/ rday, ldfull = .TRUE. )1822 cldate = iom_sdate( fjulday - rdt / rday, ldfull = .TRUE. ) 1823 1823 clname = clname(1:idx-1)//TRIM(cldate)//clname(idx+15:LEN_TRIM(clname)) 1824 1824 idx = INDEX(clname,'@startdatefull@') + INDEX(clname,'@STARTDATEFULL@') … … 1827 1827 idx = INDEX(clname,'@enddate@') + INDEX(clname,'@ENDDATE@') 1828 1828 DO WHILE ( idx /= 0 ) 1829 cldate = iom_sdate( fjulday + rdt tra(1)/ rday * REAL( nitend - nit000, wp ), ld24 = .TRUE. )1829 cldate = iom_sdate( fjulday + rdt / rday * REAL( nitend - nit000, wp ), ld24 = .TRUE. ) 1830 1830 clname = clname(1:idx-1)//TRIM(cldate)//clname(idx+9:LEN_TRIM(clname)) 1831 1831 idx = INDEX(clname,'@enddate@') + INDEX(clname,'@ENDDATE@') … … 1834 1834 idx = INDEX(clname,'@enddatefull@') + INDEX(clname,'@ENDDATEFULL@') 1835 1835 DO WHILE ( idx /= 0 ) 1836 cldate = iom_sdate( fjulday + rdt tra(1)/ rday * REAL( nitend - nit000, wp ), ld24 = .TRUE., ldfull = .TRUE. )1836 cldate = iom_sdate( fjulday + rdt / rday * REAL( nitend - nit000, wp ), ld24 = .TRUE., ldfull = .TRUE. ) 1837 1837 clname = clname(1:idx-1)//TRIM(cldate)//clname(idx+13:LEN_TRIM(clname)) 1838 1838 idx = INDEX(clname,'@enddatefull@') + INDEX(clname,'@ENDDATEFULL@') -
branches/2016/dev_v3_6_STABLE_r6506_AGRIF_LIM3/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90
r5407 r7158 123 123 !!---------------------------------------------------------------------- 124 124 125 CALL iom_rstput( kt, nitrst, numrow, 'rdt' , rdt ) ! dynamics time step 126 CALL iom_rstput( kt, nitrst, numrow, 'rdttra1', rdttra(1) ) ! surface tracer time step 125 CALL iom_rstput( kt, nitrst, numrow, 'rdt' , rdt ) ! dynamics and tracer time step 127 126 128 127 CALL iom_rstput( kt, nitrst, numrow, 'ub' , ub ) ! before fields … … 205 204 !! ** Method : Read in restart.nc file fields which are necessary for restart 206 205 !!---------------------------------------------------------------------- 207 REAL(wp) :: zrdt , zrdttra1206 REAL(wp) :: zrdt 208 207 INTEGER :: jk 209 208 LOGICAL :: llok … … 216 215 CALL iom_get( numror, 'rdt', zrdt ) 217 216 IF( zrdt /= rdt ) neuler = 0 218 ENDIF219 IF( iom_varid( numror, 'rdttra1', ldstop = .FALSE. ) > 0 ) THEN220 CALL iom_get( numror, 'rdttra1', zrdttra1 )221 IF( zrdttra1 /= rdttra(1) ) neuler = 0222 217 ENDIF 223 218 !
Note: See TracChangeset
for help on using the changeset viewer.