Changeset 1652 for LMDZ5


Ignore:
Timestamp:
Sep 12, 2012, 6:16:09 PM (12 years ago)
Author:
Laurent 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.