Changeset 1299 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/cv3a_compress.F
- Timestamp:
- Jan 20, 2010, 3:27:21 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/cv3a_compress.F
r1146 r1299 76 76 integer i,k,nn,j 77 77 78 CHARACTER (LEN=20) :: modname='cv3a_compress' 79 CHARACTER (LEN=80) :: abort_message 80 78 81 79 82 do 110 k=1,nl+1 … … 127 130 128 131 if (nn.ne.ncum) then 129 print*,'WARNING nn not equal to ncum: ',nn,ncum 130 stop 132 print*,'WARNING nn not equal to ncum: ',nn,ncum 133 abort_message = '' 134 CALL abort_gcm (modname,abort_message,1) 131 135 endif 132 136 … … 157 161 if (nn.ne.ncum) then 158 162 print*,'WARNING nn not equal to ncum: ',nn,ncum 159 stop 163 abort_message = '' 164 CALL abort_gcm (modname,abort_message,1) 160 165 endif 161 166
Note: See TracChangeset
for help on using the changeset viewer.