Changeset 7333

Timestamp:

2016-11-25T10:05:40+01:00 (7 years ago)

Author:

deazer

Message:

Correct Precision issue with I/O

File:

• branches/UKMO/CO6_Restartable_Tidal_Analysis/NEMOGCM/NEMO/OPA_SRC/DIA/diaharmana.F90 (modified) (4 diffs)

branches/UKMO/CO6_Restartable_Tidal_Analysis/NEMOGCM/NEMO/OPA_SRC/DIA/diaharmana.F90

@@ -553 +553 @@
          write (clfinal,'(a,''_'',i4.4)') trim(clpath)//trim(clname),nproc
          open(66,file=TRIM(clfinal))
-         write(66,'(1e15.5)') cc
+         write(66,'(1e20.9)') cc
          !These Three which contain the most data can be moved to a regular
          !restart file
@@ -571 +571 @@
          enddo
 
-         write(66,'(1e15.5)') anau
-         write(66,'(1e15.5)') anav
-         write(66,'(1e15.5)') anaf
+         write(66,'(1e20.9)') anau
+         write(66,'(1e20.9)') anav
+         write(66,'(1e20.9)') anaf
          write(66,'(1e25.20)') fjulday_startharm
          close(66)
@@ -614 +614 @@
          write (clfinal,'(a,''_'',i4.4)') trim(clpath)//trim(clname),nproc
          open(66,file=TRIM(clfinal),status='old')
-         read(66,'(1e15.5)') cc
+         read(66,'(1e20.9)') cc
 !2D regular fields can be read from normal restart this saves space and handy to
 !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, : , : )    )
          enddo
-         read(66,'(1e15.5)') anau
-         read(66,'(1e15.5)') anav
-         read(66,'(1e15.5)') anaf
+         read(66,'(1e20.9)') anau
+         read(66,'(1e20.9)') anav
+         read(66,'(1e20.9)') anaf
          read(66,'(1e25.20)') fjulday_startharm
       WRITE(numout,*) 'Checking anaf is correct'