Ignore:
Timestamp:
Apr 13, 2005, 10:58:34 AM (19 years ago)
Author:
lmdzadmin
Message:

Mise a jour pour INCA.2.0 Anne C
MAFi+LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/physiq.F

    r594 r616  
    88     .            u,v,t,qx,
    99     .            omega,
    10 #ifdef INCA_CH4
     10#ifdef INCA
    1111     .            flxmass_w,
    1212#endif
    … …  
    1717#ifdef INCA
    1818      USE chemshut
     19      USE species_names
    1920#ifdef INCA_CH4
    2021!      USE obs_pos
    … …  
    8283#include "clesphys.h"
    8384#include "control.h"
     85#include "logic.h"
    8486#include "temps.h"
    8587#include "comgeomphy.h"
    … …  
    202204      REAL omega(klon,klev)
    203205
    204 #ifdef INCA_CH4
     206#ifdef INCA
    205207      REAL flxmass_w(klon,klev)
    206208#endif
    … …  
    10101012      solswad(:)=0.
    10111013!rv
     1014! anne
     1015      d_u_con(:,:) = 0.0
     1016      d_v_con(:,:) = 0.0
     1017      rnebcon0(:,:) = 0.0
     1018      clwcon0(:,:) = 0.0
     1019      rnebcon(:,:) = 0.0
     1020      clwcon(:,:) = 0.0
     1021      paire_ter(:) = 0.0
     1022      nhistoW(:,:,:,:) = 0.0
     1023      histoW(:,:,:,:) = 0.0
     1024! fin anne
    10121025
    10131026cym
    … …  
    12961309     $                   presnivs,
    12971310     $                   calday,
    1298      $                   tracnam,
    1299      $                   natsnam,
    1300 c     $                   mxoutflds,
    1301 c     $                   outinst,
    1302 c     $                   outtimav,
    13031311     $                   klon,
    13041312     $                   nqmax,
    … …  
    24222430     $                          iim,
    24232431     $                          jjm,
    2424      $                          tr_seri)
     2432#ifdef INCA_AER
     2433     $                          tr_seri,
     2434     $                          ftsol,
     2435     $                          paprs,
     2436     $                          cdragh,
     2437     $                          cdragm,
     2438     $                          pctsrf,
     2439     $                          pdtphys,
     2440     $                          itap)
     2441#else
     2442     $                          tr_seri)     
     2443#endif       
     2444
    24252445#ifdef INCAINFO
    24262446           WRITE(lunout,*)'OK.'
    … …  
    26602680     I                   ibas_con,
    26612681     I                   pmflxr,pmflxs,prfl,psfl,
    2662 #ifdef INCA_CH4
     2682#ifdef INCA
    26632683     I                   flxmass_w,
    26642684#endif
Note: See TracChangeset for help on using the changeset viewer.