Changeset 1279 for LMDZ4/trunk/libf/dyn3dpar/abort_gcm.F
- Timestamp:
- Dec 10, 2009, 10:02:56 AM (15 years ago)
- Location:
- LMDZ4/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk
- Property svn:mergeinfo changed
/LMDZ4/branches/LMDZ4-dev merged: 1150-1162,1164-1193,1195-1231,1234-1235,1237-1240,1242-1274,1276
- Property svn:mergeinfo changed
-
LMDZ4/trunk/libf/dyn3dpar/abort_gcm.F
r1147 r1279 1 1 ! 2 ! $ Header$2 ! $Id$ 3 3 ! 4 4 c … … 8 8 #ifdef CPP_IOIPSL 9 9 USE IOIPSL 10 #else 11 ! if not using IOIPSL, we still need to use (a local version of) getin_dump 12 USE ioipsl_getincom 10 13 #endif 14 USE parallel 11 15 #include "iniprint.h" 12 16 … … 28 32 call histclo 29 33 call restclo 34 if (MPI_rank .eq. 0) then 35 call getin_dump 36 endif 30 37 c$OMP END MASTER 31 38 #endif 32 call getin_dump33 39 c call histclo(2) 34 40 c call histclo(3)
Note: See TracChangeset
for help on using the changeset viewer.