Changeset 488 for codes/icosagcm/trunk/src/restart.f90

Timestamp:

10/12/16 16:14:03 (8 years ago)

Author:

ymipsl

Message:

New version independant of netcd I/O for benchmarking.

YM

File:

• codes/icosagcm/trunk/src/restart.f90 (modified) (2 diffs)

codes/icosagcm/trunk/src/restart.f90

@@ -70 +70 @@
   REAL(rstd),ALLOCATABLE :: lon(:),lat(:),bounds_lon(:,:),bounds_lat(:,:)
    
+    IF (no_io) RETURN
+    
     restart_file_name="restart"
     CALL getin("restart_file_name",restart_file_name)
@@ -419 +421 @@
   REAL(rstd),ALLOCATABLE :: lon(:),lat(:),bounds_lon(:,:),bounds_lat(:,:)
   REAL(rstd) :: it_temp(1)
+  
+    IF (no_io) RETURN
+    
     start_file_name="start"
     CALL getin("start_file_name",start_file_name)