Changeset 1999 for LMDZ5/branches/testing/libf/dyn3d/dynredem.F
- Timestamp:
- Mar 20, 2014, 10:57:19 AM (10 years ago)
- Location:
- LMDZ5/branches/testing
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/testing
- Property svn:mergeinfo changed
/LMDZ5/trunk merged: 1922-1927,1929-1933,1937-1939,1943-1997
- Property svn:mergeinfo changed
-
LMDZ5/branches/testing/libf/dyn3d/dynredem.F
r1910 r1999 133 133 & //trim(fichnom) 134 134 write(lunout,*)' ierr = ', ierr 135 CALL ABORT 135 CALL ABORT_GCM("DYNREDEM0", "", 1) 136 136 ENDIF 137 137 c … … 512 512 IF (ierr .NE. NF_NOERR) THEN 513 513 write(lunout,*)"dynredem1: Pb. d ouverture "//trim(fichnom) 514 CALL abort514 call abort_gcm("dynredem1", "", 1) 515 515 ENDIF 516 516
Note: See TracChangeset
for help on using the changeset viewer.