Changeset 1299 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/cv3p1_closure.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/cv3p1_closure.F
r973 r1299 1 ! 2 ! $Id$ 3 ! 1 4 SUBROUTINE cv3p1_closure(nloc,ncum,nd,icb,inb 2 5 : ,pbase,plcl,p,ph,tv,tvp,buoy … … 74 77 real wb,sigmax 75 78 data wb /2./, sigmax /0.1/ 79 80 CHARACTER (LEN=20) :: modname='cv3p1_closure' 81 CHARACTER (LEN=80) :: abort_message 76 82 c 77 83 c print *,' -> cv3p1_closure, Ale ',ale(1) … … 509 515 cbmf1(il) = alp2(il)/(0.5*wb*wb-Cin(il)) 510 516 if(cbmf1(il).EQ.0.AND.alp2(il).NE.0.) THEN 511 print*,'cv3p1_closure cbmf1=0 and alp NE 0 il alp2 alp cin ',il, 517 write(lunout,*) 518 & 'cv3p1_closure cbmf1=0 and alp NE 0 il alp2 alp cin ',il, 512 519 . alp2(il),alp(il),cin(il) 513 STOP 520 abort_message = '' 521 CALL abort_gcm (modname,abort_message,1) 514 522 endif 515 523 cbmfmax(il) = sigmax*wb2(il)*100.*p(il,icb(il))
Note: See TracChangeset
for help on using the changeset viewer.