Changeset 1403 for LMDZ4/trunk/libf/phylmd/cva_driver.F
- Timestamp:
- Jul 1, 2010, 11:02:53 AM (14 years ago)
- Location:
- LMDZ4/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk
- Property svn:mergeinfo changed
-
LMDZ4/trunk/libf/phylmd/cva_driver.F
r1398 r1403 1 ! 2 ! $Id$ 3 ! 1 4 SUBROUTINE cva_driver(len,nd,ndp1,ntra,nloc, 2 5 & iflag_con,iflag_mix, … … 106 109 #include "dimensions.h" 107 110 ccccc#include "dimphy.h" 111 include 'iniprint.h' 112 108 113 c 109 114 c Input … … 151 156 real Ma1(len,nd) 152 157 real mip1(len,nd) 153 ! real Vprecip1(len,nd) Correction abderr le 23 03 10158 ! real Vprecip1(len,nd) 154 159 real Vprecip1(len,nd+1) 155 160 real upwd1(len,nd) … … 421 426 logical, save :: first=.true. 422 427 c$OMP THREADPRIVATE(first) 428 CHARACTER (LEN=20) :: modname='cva_driver' 429 CHARACTER (LEN=80) :: abort_message 423 430 424 431 c … … 566 573 c test niveaux couche alimentation KE 567 574 if(sig1feed1.eq.sig2feed1) then 568 print*,'impossible de choisir sig1feed=sig2feed' 569 print*,'changer la valeur de sig2feed dans physiq.def' 570 stop 575 write(lunout,*)'impossible de choisir sig1feed=sig2feed' 576 write(lunout,*)'changer la valeur de sig2feed dans physiq.def' 577 abort_message = '' 578 CALL abort_gcm (modname,abort_message,1) 571 579 endif 572 580 c
Note: See TracChangeset
for help on using the changeset viewer.