Changeset 28 for XMLIO_SERVER/trunk/src/IOSERVER/mod_interface_ioipsl.f90

Timestamp:

04/08/09 16:05:18 (15 years ago)

Author:

ymipsl

Message:

Feature : ajout des paramÚtres temporels dans les contexts

File:

• XMLIO_SERVER/trunk/src/IOSERVER/mod_interface_ioipsl.f90 (modified) (6 diffs)

XMLIO_SERVER/trunk/src/IOSERVER/mod_interface_ioipsl.f90

@@ -1 +1 @@
 MODULE mod_interface_ioipsl
 
-  INTEGER,SAVE,PRIVATE  :: ini_timestep
-  REAL,SAVE,PRIVATE     :: zjulian
-  REAL,SAVE,PRIVATE     :: timestep 
-  INTEGER,SAVE,PRIVATE  :: timestep_nb
+ 
+  INTEGER,PARAMETER     :: id_file=1
+
+
+CONTAINS
+
+  SUBROUTINE init_interface_ioipsl
+  USE xmlio
+  IMPLICIT NONE
   
-  INTEGER,PARAMETER     :: id_file=1
-
-
-CONTAINS
-
-  SUBROUTINE init_interface_ioipsl
-  USE xmlio
-  IMPLICIT NONE
-  
     
   END SUBROUTINE init_interface_ioipsl
@@ -20 +16 @@
 
   SUBROUTINE set_time_parameters(ini_timestep0,zjulian0,timestep0)
+  USE xmlio
   IMPLICIT NONE
     INTEGER :: ini_timestep0
     REAL :: zjulian0, timestep0
 
-    timestep=timestep0
-    ini_timestep=ini_timestep0
-    zjulian=zjulian0
+    timestep_value=timestep0
+    initial_timestep=ini_timestep0
+    initial_date=zjulian0
 
   END SUBROUTINE set_time_parameters
@@ -66 +63 @@
       CALL set_ioipsl_domain_id(pt_grid,nb_server,server_rank,ioipsl_domain_id)
       CALL histbeg(TRIM(pt_file%name),pt_domain%ni,pt_domain%lon, pt_domain%nj, pt_domain%lat,  &
-                    1, pt_domain%ni, 1, pt_domain%nj,ini_timestep, zjulian, timestep,           &
+                    1, pt_domain%ni, 1, pt_domain%nj,initial_timestep, initial_date, timestep_value,  &
                    ioipsl_hori_id, ioipsl_file_id,domain_id=ioipsl_domain_id)                                              
       
@@ -132 +129 @@
          pt_field=>pt_field_base%field_out%at(i)%pt%field
          ioipsl_file_id=pt_field%internal(id_file)
-         CALL histwrite(ioipsl_file_id, TRIM(pt_field%name), timestep_nb, var, size(var), nindex)
+         CALL histwrite(ioipsl_file_id, TRIM(pt_field%name), timestep_number, var, size(var), nindex)
        ENDDO
      ENDIF
@@ -162 +159 @@
          pt_field=>pt_field_base%field_out%at(i)%pt%field
          ioipsl_file_id=pt_field%internal(id_file)
-         CALL histwrite(ioipsl_file_id, TRIM(pt_field%name), timestep_nb, var, size(var), nindex)
+         CALL histwrite(ioipsl_file_id, TRIM(pt_field%name), timestep_number, var, size(var), nindex)
        ENDDO
      ENDIF
@@ -169 +166 @@
 
   SUBROUTINE set_timestep(timestep_nb0)
+  USE xmlio
   IMPLICIT NONE
     INTEGER,INTENT(IN) :: timestep_nb0
      
-    timestep_nb=timestep_nb0
+    timestep_number=timestep_nb0
 
   END SUBROUTINE set_timestep