Changeset 1214 for LMDZ4/branches/LMDZ4-dev/libf/phylmd

Timestamp:

Jul 22, 2009, 7:21:44 PM (15 years ago)

Author:

idelkadi

Message:

 

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/phys_output_mod.F90 (modified) (2 diffs)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/phys_output_mod.F90

@@ -494 +494 @@
   integer                               :: jmin_ins, jmax_ins
   CHARACTER(len=20), dimension(nfiles)  :: type_ecri_files
-  character(len=20), dimension(nfiles)  :: chtimestep
+  character(len=20), dimension(nfiles)  :: chtimestep   = (/ '1mth', '1day', '3hor', '30mn', '3hor' /)
 
 !!!!!!!!!! stockage dans une region limitee pour chaque fichier !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -1151 +1151 @@
         if ( type == 'mth' ) timestep = ttt * dayseconde * 30.
         if ( type == 'hor' ) timestep = ttt * dayseconde / 24.
+        if ( type == 'mn'  ) timestep = ttt * 60.
+        if ( type == 's'   ) timestep = ttt
 
         print*,'type =      ',type