Ignore:
Timestamp:
11/12/09 14:35:37 (15 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_iomanager.f90

    r48 r50  
    159159     
    160160  END SUBROUTINE iom__set_timestep 
     161 
     162  SUBROUTINE iom__set_calendar(str_calendar) 
     163  USE mod_interface_ioipsl 
     164  IMPLICIT NONE 
     165    CHARACTER(LEN=*) :: str_calendar 
     166     
     167    IF (current_rank==nb_client) CALL set_calendar(str_calendar) 
     168     
     169  END SUBROUTINE iom__set_calendar 
    161170 
    162171  SUBROUTINE iom__enable_field(varname) 
Note: See TracChangeset for help on using the changeset viewer.