Changeset 1825 for LMDZ5/trunk/libf/dyn3d
- Timestamp:
- Aug 2, 2013, 4:36:53 PM (11 years ago)
- Location:
- LMDZ5/trunk/libf/dyn3d
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3d/abort_gcm.F
r1425 r1825 12 12 USE ioipsl_getincom 13 13 #endif 14 15 #ifdef CPP_XIOS 16 ! ug Pour les sorties XIOS 17 USE wxios 18 #endif 19 14 20 #include "iniprint.h" 15 21 … … 27 33 28 34 write(lunout,*) 'in abort_gcm' 35 36 #ifdef CPP_XIOS 37 !Fermeture propre de XIOS 38 CALL wxios_close() 39 #endif 40 29 41 #ifdef CPP_IOIPSL 30 42 call histclo -
LMDZ5/trunk/libf/dyn3d/gcm.F
r1785 r1825 11 11 ! if not using IOIPSL, we still need to use (a local version of) getin 12 12 USE ioipsl_getincom 13 #endif 14 15 16 #ifdef CPP_XIOS 17 ! ug Pour les sorties XIOS 18 USE wxios 13 19 #endif 14 20 … … 179 185 ! CALL defrun( 99, .TRUE. , clesphy0 ) 180 186 !#endif 187 188 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 189 ! Initialisation de XIOS 190 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 191 192 #ifdef CPP_XIOS 193 CALL wxios_init("LMDZ") 194 #endif 195 181 196 182 197 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Note: See TracChangeset
for help on using the changeset viewer.