Changeset 50 for XMLIO_SERVER/trunk/src/IOSERVER/mod_interface_ioipsl.f90
- Timestamp:
- 11/12/09 14:35:37 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XMLIO_SERVER/trunk/src/IOSERVER/mod_interface_ioipsl.f90
r40 r50 14 14 END SUBROUTINE init_interface_ioipsl 15 15 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 17 25 SUBROUTINE set_time_parameters(ini_timestep0,zjulian0,timestep0) 18 26 USE xmlio
Note: See TracChangeset
for help on using the changeset viewer.