Ignore:
Timestamp:
11/12/09 14:35:37 (13 years ago)
Author:
ymipsl
Message:

Ajout de la définition du calendrier IOIPLS

YM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XMLIO_SERVER/trunk/src/IOSERVER/mod_interface_ioipsl.f90

    r40 r50  
    1414  END SUBROUTINE init_interface_ioipsl 
    1515 
    16  
     16  SUBROUTINE set_calendar(str_calendar) 
     17  USE ioipsl 
     18    CHARACTER(LEN=*) :: str_calendar 
     19     
     20    CALL ioconf_calendar(str_calendar) 
     21     
     22  END SUBROUTINE set_calendar 
     23   
     24   
    1725  SUBROUTINE set_time_parameters(ini_timestep0,zjulian0,timestep0) 
    1826  USE xmlio 
Note: See TracChangeset for help on using the changeset viewer.