Changeset 1425 for LMDZ4/trunk/libf/dyn3d/abort_gcm.F
- Timestamp:
- Sep 2, 2010, 3:45:23 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/dyn3d/abort_gcm.F
r1279 r1425 26 26 character(len=*) message 27 27 28 ! write(lunout,*) 'in abort_gcm' 29 write(6,*) 'in abort_gcm' 28 write(lunout,*) 'in abort_gcm' 30 29 #ifdef CPP_IOIPSL 31 30 call histclo … … 37 36 c call histclo(4) 38 37 c call histclo(5) 39 c write(lunout,*) 'Stopping in ', modname 40 c write(lunout,*) 'Reason = ',message 41 c if (ierr .eq. 0) then 42 c write(lunout,*) 'Everything is cool' 43 c else 44 c write(lunout,*) 'Houston, we have a problem ', ierr 45 c endif 46 write(6,*) 'Stopping in ', modname 47 write(6,*) 'Reason = ',message 38 write(lunout,*) 'Stopping in ', modname 39 write(lunout,*) 'Reason = ',message 48 40 if (ierr .eq. 0) then 49 write(6,*) 'Everything is cool' 41 write(lunout,*) 'Everything is cool' 42 stop 50 43 else 51 write(6,*) 'Houston, we have a problem ', ierr 44 write(lunout,*) 'Houston, we have a problem ', ierr 45 stop 1 52 46 endif 53 STOP54 47 END
Note: See TracChangeset
for help on using the changeset viewer.