Changeset 1299 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/cv30_routines.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/cv30_routines.F
r879 r1299 1 1 ! 2 ! $ Header$2 ! $Id$ 3 3 ! 4 4 c … … 749 749 750 750 #include "cv30param.h" 751 include 'iniprint.h' 751 752 752 753 c inputs: … … 778 779 c local variables: 779 780 integer i,k,nn,j 781 782 CHARACTER (LEN=20) :: modname='cv30_compress' 783 CHARACTER (LEN=80) :: abort_message 780 784 781 785 … … 820 824 821 825 if (nn.ne.ncum) then 822 print*,'strange! nn not equal to ncum: ',nn,ncum 823 stop 826 write(lunout,*)'strange! nn not equal to ncum: ',nn,ncum 827 abort_message = '' 828 CALL abort_gcm (modname,abort_message,1) 824 829 endif 825 830
Note: See TracChangeset
for help on using the changeset viewer.