- Timestamp:
- 2016-11-25T10:05:40+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/CO6_Restartable_Tidal_Analysis/NEMOGCM/NEMO/OPA_SRC/DIA/diaharmana.F90
r6885 r7333 553 553 write (clfinal,'(a,''_'',i4.4)') trim(clpath)//trim(clname),nproc 554 554 open(66,file=TRIM(clfinal)) 555 write(66,'(1e 15.5)') cc555 write(66,'(1e20.9)') cc 556 556 !These Three which contain the most data can be moved to a regular 557 557 !restart file … … 571 571 enddo 572 572 573 write(66,'(1e 15.5)') anau574 write(66,'(1e 15.5)') anav575 write(66,'(1e 15.5)') anaf573 write(66,'(1e20.9)') anau 574 write(66,'(1e20.9)') anav 575 write(66,'(1e20.9)') anaf 576 576 write(66,'(1e25.20)') fjulday_startharm 577 577 close(66) … … 614 614 write (clfinal,'(a,''_'',i4.4)') trim(clpath)//trim(clname),nproc 615 615 open(66,file=TRIM(clfinal),status='old') 616 read(66,'(1e 15.5)') cc616 read(66,'(1e20.9)') cc 617 617 !2D regular fields can be read from normal restart this saves space and handy to 618 618 !view in netcdf format also. … … 632 632 CALL iom_get( numror,jpdom_autoglo, TRIM(Wave(ntide(ih))%cname_tide)//'bvbar_sin' , bvbar(ih*2+1, : , : ) ) 633 633 enddo 634 read(66,'(1e 15.5)') anau635 read(66,'(1e 15.5)') anav636 read(66,'(1e 15.5)') anaf634 read(66,'(1e20.9)') anau 635 read(66,'(1e20.9)') anav 636 read(66,'(1e20.9)') anaf 637 637 read(66,'(1e25.20)') fjulday_startharm 638 638 WRITE(numout,*) 'Checking anaf is correct'
Note: See TracChangeset
for help on using the changeset viewer.