Changeset 517

Timestamp:

12/22/16 10:58:34 (7 years ago)

Author:

ymipsl

Message:

forgotten files from previous commit

YM

Location:

codes/icosagcm/trunk/src

Files:

• etat0.f90 (modified) (1 diff)
• etat0_database.f90 (modified) (1 diff)
• etat0_start_file.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/etat0.f90

@@ -14 +14 @@
   
   SUBROUTINE init_etat0
-  USE etat0_database_mod, init_etat0_database => init_etat0 
-  USE etat0_start_file_mod, init_etat0_start_file => init_etat0 
+  USE etat0_database_mod, ONLY: init_etat0_database => init_etat0 
+  USE etat0_start_file_mod, ONLY: init_etat0_start_file => init_etat0 
   IMPLICIT NONE
 

codes/icosagcm/trunk/src/etat0_database.f90

@@ -130 +130 @@
     DO ind=1,ndomain
       IF (.NOT. assigned_domain(ind)) CYCLE
-      f_q(ind)%rval4d(:,:,:)=0
+      f_q(ind)%rval4d(:,:,:)=1e-6
       f_q(ind)%rval4d(:,:,1)=f_q1(ind)%rval3d(:,:)*f_qsat(ind)%rval3d(:,:)*0.01
       WHERE(f_q(ind)%rval4d(:,:,1)<0) f_q(ind)%rval4d(:,:,1)=0

codes/icosagcm/trunk/src/etat0_start_file.f90

@@ -9 +9 @@
   USE xios_mod
   USE omp_para
+  USE time_mod
+  USE restart_mod
   IMPLICIT NONE
     
     IF (is_omp_master) THEN
-      IF (using_xios) CALL xios_set_file_attr("start", enabled=.TRUE.)
+      IF (using_xios) THEN
+        CALL xios_set_file_attr("start", enabled=.TRUE., mode="read", output_freq=(itaumax+1)*xios_timestep)
+      ENDIF
     ENDIF
+    write_start=.FALSE.
     
   END SUBROUTINE init_etat0