Changeset 1518 for LMDZ5/trunk/libf/phylmd/cv3a_uncompress.F
- Timestamp:
- May 12, 2011, 3:32:22 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/cv3a_uncompress.F
r1398 r1518 1 1 SUBROUTINE cv3a_uncompress(nloc,len,ncum,nd,ntra,idcum 2 2 : ,iflag,kbas,ktop 3 : ,precip,cbmf, sig,w0,ptop23 : ,precip,cbmf,plcl,plfc,wbeff,sig,w0,ptop2 4 4 : ,ft,fq,fu,fv,ftra 5 : , Ma,mip,Vprecip,upwd,dnwd,dnwd05 : ,sigd,Ma,mip,Vprecip,upwd,dnwd,dnwd0 6 6 : ,qcondc,wd,cape,cin 7 7 : ,tvp … … 10 10 : ,asupmaxmin 11 11 o ,iflag1,kbas1,ktop1 12 : ,precip1,cbmf1, sig1,w01,ptop2112 : ,precip1,cbmf1,plcl1,plfc1,wbeff1,sig1,w01,ptop21 13 13 : ,ft1,fq1,fu1,fv1,ftra1 14 : , Ma1,mip1,Vprecip1,upwd1,dnwd1,dnwd0114 : ,sigd1,Ma1,mip1,Vprecip1,upwd1,dnwd1,dnwd01 15 15 : ,qcondc1,wd1,cape1,cin1 16 16 : ,tvp1 … … 35 35 integer idcum(nloc) 36 36 integer iflag(nloc),kbas(nloc),ktop(nloc) 37 real precip(nloc),cbmf(nloc) 37 real precip(nloc),cbmf(nloc),plcl(nloc),plfc(nloc) 38 real wbeff(len) 38 39 real sig(nloc,nd), w0(nloc,nd),ptop2(nloc) 39 40 real ft(nloc,nd), fq(nloc,nd), fu(nloc,nd), fv(nloc,nd) 40 41 real ftra(nloc,nd,ntra) 42 real sigd(nloc) 41 43 real Ma(nloc,nd),mip(nloc,nd),Vprecip(nloc,nd+1) 42 44 real upwd(nloc,nd),dnwd(nloc,nd),dnwd0(nloc,nd) … … 51 53 c outputs: 52 54 integer iflag1(len),kbas1(len),ktop1(len) 53 real precip1(len),cbmf1(len) 55 real precip1(len),cbmf1(len),plcl1(nloc),plfc1(nloc) 56 real wbeff1(len) 54 57 real sig1(len,nd), w01(len,nd),ptop21(len) 55 58 real ft1(len,nd), fq1(len,nd), fu1(len,nd), fv1(len,nd) 56 59 real ftra1(len,nd,ntra) 60 real sigd1(len) 57 61 real Ma1(len,nd),mip1(len,nd),Vprecip1(len,nd+1) 58 62 real upwd1(len,nd),dnwd1(len,nd),dnwd01(len,nd) … … 70 74 do 2000 i=1,ncum 71 75 ptop21(idcum(i))=ptop2(i) 76 sigd1(idcum(i))=sigd(i) 72 77 precip1(idcum(i))=precip(i) 73 78 cbmf1(idcum(i))=cbmf(i) 79 plcl1(idcum(i))=plcl(i) 80 plfc1(idcum(i))=plfc(i) 81 wbeff1(idcum(i))=wbeff(i) 74 82 iflag1(idcum(i))=iflag(i) 75 83 kbas1(idcum(i))=kbas(i)
Note: See TracChangeset
for help on using the changeset viewer.