Changeset 1201 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/hgardfou.F
- Timestamp:
- Jul 7, 2009, 4:01:00 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/phylmd/hgardfou.F
r1145 r1201 1 1 ! 2 ! $Id$ 2 3 SUBROUTINE hgardfou (t,tsol,text) 3 4 use dimphy … … 12 13 REAL t(klon,klev), tsol(klon,nbsrf) 13 14 CHARACTER*(*) text 15 character (len=20) :: modname = 'hgardfou' 16 character (len=80) :: abort_message 14 17 C 15 18 INTEGER i, k, nsrf … … 124 127 c 125 128 IF (.NOT. ok) THEN 126 PRINT*, 'hgardfou s arrete ',text127 CALL abort 129 abort_message= 'hgardfou s arrete '//text 130 CALL abort_gcm (modname,abort_message,1) 128 131 ENDIF 129 132
Note: See TracChangeset
for help on using the changeset viewer.