Changeset 1299 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/cv_routines.F
- Timestamp:
- Jan 20, 2010, 3:27:21 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/cv_routines.F
r524 r1299 1 1 ! 2 ! $ Header$2 ! $Id$ 3 3 ! 4 4 SUBROUTINE cv_param(nd) … … 38 38 #include "cvparam.h" 39 39 integer nd 40 CHARACTER (LEN=20) :: modname='cv_routines' 41 CHARACTER (LEN=80) :: abort_message 40 42 41 43 c noff: integer limit for convection (nd-noff) … … 429 431 c local variables: 430 432 integer i,k,nn 433 CHARACTER (LEN=20) :: modname='cv_compress' 434 CHARACTER (LEN=80) :: abort_message 435 436 include 'iniprint.h' 431 437 432 438 … … 456 462 457 463 if (nn.ne.ncum) then 458 print*,'strange! nn not equal to ncum: ',nn,ncum 459 stop 464 write(lunout,*)'strange! nn not equal to ncum: ',nn,ncum 465 abort_message = '' 466 CALL abort_gcm (modname,abort_message,1) 460 467 endif 461 468
Note: See TracChangeset
for help on using the changeset viewer.