Changeset 1652


Ignore:
Timestamp:
09/12/12 18:16:09 (5 years ago)
Author:
fairhead
Message:

Un fichier n'avait pas été commité pour les dernières modifications de A.Cozic


One file not commited in the latest modifications from A. Cozic

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/cva_driver.F

    r1518 r1652  
    2020     &                   ftd1,fqd1, 
    2121     &                   Plim11,Plim21,asupmax1,supmax01,asupmaxmin1 
    22      &                   ,lalim_conv) 
     22     &                   ,lalim_conv,  
     23!AC! 
     24     &                   da1,phi1) 
     25!AC! 
    2326*************************************************************** 
    2427*                                                             * 
     
    171174      real tvp1(len,nd) 
    172175c 
     176!AC! 
     177      real da1(len,nd),phi1(len,nd,nd) 
     178      real da(len,nd),phi(len,nd,nd) 
     179!AC! 
    173180      real ftd1(len,nd) 
    174181      real fqd1(len,nd) 
     
    912919      endif 
    913920 
     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 
    914933!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
    915934! --- UNCOMPRESS THE FIELDS 
     
    928947     :          ,Plim1,Plim2,asupmax,supmax0 
    929948     :          ,asupmaxmin 
     949!AC! 
     950     :          ,da,phi 
     951!AC! 
    930952     o          ,iflag1,kbas1,ktop1 
    931953     o          ,precip1,cbmf1,plcl1,plfc1,wbeff1,sig1,w01,ptop21 
     
    936958     o          ,ftd1,fqd1 
    937959     o          ,Plim11,Plim21,asupmax1,supmax01 
    938      o          ,asupmaxmin1) 
     960     o          ,asupmaxmin1 
     961!AC! 
     962     o          ,da1,phi1) 
     963!AC! 
    939964      endif 
    940965 
Note: See TracChangeset for help on using the changeset viewer.