- Timestamp:
- Sep 12, 2012, 6:16:09 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/cva_driver.F
r1518 r1652 20 20 & ftd1,fqd1, 21 21 & Plim11,Plim21,asupmax1,supmax01,asupmaxmin1 22 & ,lalim_conv) 22 & ,lalim_conv, 23 !AC! 24 & da1,phi1) 25 !AC! 23 26 *************************************************************** 24 27 * * … … 171 174 real tvp1(len,nd) 172 175 c 176 !AC! 177 real da1(len,nd),phi1(len,nd,nd) 178 real da(len,nd),phi(len,nd,nd) 179 !AC! 173 180 real ftd1(len,nd) 174 181 real fqd1(len,nd) … … 912 919 endif 913 920 921 !AC! 922 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 923 ! --- passive tracers 924 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 925 926 if (iflag_con.eq.3) then 927 CALL cv3_tracer(nloc,len,ncum,nd,nd, 928 : ment,sij,da,phi) 929 endif 930 931 !AC! 932 914 933 !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 915 934 ! --- UNCOMPRESS THE FIELDS … … 928 947 : ,Plim1,Plim2,asupmax,supmax0 929 948 : ,asupmaxmin 949 !AC! 950 : ,da,phi 951 !AC! 930 952 o ,iflag1,kbas1,ktop1 931 953 o ,precip1,cbmf1,plcl1,plfc1,wbeff1,sig1,w01,ptop21 … … 936 958 o ,ftd1,fqd1 937 959 o ,Plim11,Plim21,asupmax1,supmax01 938 o ,asupmaxmin1) 960 o ,asupmaxmin1 961 !AC! 962 o ,da1,phi1) 963 !AC! 939 964 endif 940 965
Note: See TracChangeset
for help on using the changeset viewer.