Ignore:
Timestamp:
May 27, 2008, 6:46:50 PM (16 years ago)
Author:
lsce
Message:
  • Ajoute du parametre config_inca dans conf_gcm.F config_inca='none'(sans INCA, par defaut) config_inca='chem'(avec INCA config chemie) config_inca='aero'(avec INCA config aerosol)
  • Menage parmis les cles CPP INCA
  • Enleve le calcul d'omega dans calfis.F et active le calcul correspondant dans advtrac.F(avant uniquement pour INCA).

JG

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/dyn3dpar/caladvtrac_p.F

    r764 r960  
    44c
    55c
    6 #ifdef INCA
    76            SUBROUTINE caladvtrac_p(q,pbaru,pbarv ,
    87     *                   p ,masse, dq ,  teta,
    9      *                   flxw,
    10      *                   pk,
    11      *                   iapptrac)
    12 #else
    13             SUBROUTINE caladvtrac_p(q,pbaru,pbarv ,
    14      *                   p ,masse, dq ,  teta,
    15      *                   pk,iapptrac)
    16 #endif
     8     *                   flxw, pk, iapptrac)
    179      USE parallel
    1810c
    … …  
    4032      REAL p( ip1jmp1,llmp1),q( ip1jmp1,llm,nqmx),dq( ip1jmp1,llm,2 )
    4133      REAL teta( ip1jmp1,llm),pk( ip1jmp1,llm)
    42 #ifdef INCA
    4334      REAL               :: flxw(ip1jmp1,llm)
    44 #endif
     35
    4536      integer ijb,ije,jjb,jje
    4637
    … …  
    7465c      print *,'appel a advtrac'
    7566
    76 #ifdef INCA
    7767      CALL advtrac_p( pbaru,pbarv,
    7868     *             p,  masse,q,iapptrac, teta,
    79      .             flxw,
    80      .             pk)
    81 #else
    82       CALL advtrac_p( pbaru,pbarv,
    83      *             p,  masse,q,iapptrac, teta,
    84      .             pk)
    85 #endif
    86 c
     69     .             flxw, pk)
    8770
    8871         goto 9999
Note: See TracChangeset for help on using the changeset viewer.