Ignore:
Timestamp:
Jul 22, 2009, 7:21:44 PM (15 years ago)
Author:
idelkadi
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/phys_output_mod.F90

    r1213 r1214  
    494494  integer                               :: jmin_ins, jmax_ins
    495495  CHARACTER(len=20), dimension(nfiles)  :: type_ecri_files
    496   character(len=20), dimension(nfiles)  :: chtimestep
     496  character(len=20), dimension(nfiles)  :: chtimestep   = (/ '1mth', '1day', '3hor', '30mn', '3hor' /)
    497497
    498498!!!!!!!!!! stockage dans une region limitee pour chaque fichier !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     
    11511151        if ( type == 'mth' ) timestep = ttt * dayseconde * 30.
    11521152        if ( type == 'hor' ) timestep = ttt * dayseconde / 24.
     1153        if ( type == 'mn'  ) timestep = ttt * 60.
     1154        if ( type == 's'   ) timestep = ttt
    11531155
    11541156        print*,'type =      ',type
Note: See TracChangeset for help on using the changeset viewer.