Changeset 5267 for LMDZ6/trunk/libf/dyn3d/abort_gcm.F90
- Timestamp:
- Oct 23, 2024, 5:34:46 PM (3 days ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3d/abort_gcm.F90
r5246 r5267 6 6 SUBROUTINE abort_gcm(modname, message, ierr) 7 7 8 #ifdef CPP_IOIPSL9 8 USE IOIPSL 10 #else11 ! if not using IOIPSL, we still need to use (a local version of) getin_dump12 USE ioipsl_getincom13 #endif14 9 !! ug Pour les sorties XIOS 15 10 USE wxios … … 36 31 ENDIF 37 32 38 #ifdef CPP_IOIPSL39 33 call histclo 40 34 call restclo 41 #endif42 35 call getin_dump 43 36 ! call histclo(2)
Note: See TracChangeset
for help on using the changeset viewer.