Changeset 625


Ignore:
Timestamp:
Apr 29, 2005, 10:06:07 AM (20 years ago)
Author:
lmdzadmin
Message:

Rajout cles CPP + changement argument pour INCA - Anne Cozic
MAF

Location:
LMDZ4/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r619 r625  
    23842384#ifdef INCA_AER
    23852385      call AEROSOL_METEO_CALC(calday,pdtphys,pplay,paprs,t,pmflxr,pmflxs,
    2386      &   prfl,psfl,pctsrf,airephy,xjour,rlat,rlon)
     2386     &   prfl,psfl,pctsrf(1,3),airephy,xjour,rlat,rlon)
    23872387#endif
    23882388
    … …  
    23902390           WRITE(lunout,*)'Appel CHEMHOOK_BEGIN ...'
    23912391#endif
     2392
    23922393           CALL chemhook_begin (calday,
    23932394     $                          pctsrf(1,1),
    … …  
    24282429#endif       
    24292430
     2431
    24302432#ifdef INCAINFO
    24312433           WRITE(lunout,*)'OK.'
    … …  
    26302632c====================================================================
    26312633C
    2632       call phytrac (iflag_con,rnpb,
    2633      I                   itap, julien, gmtime,
    2634      I                   debut,lafin,
     2634      call phytrac (iflag_con,
     2635     I                   rnpb,
     2636     I                   itap,
     2637     I                   julien,
     2638     I                   gmtime,
     2639     I                   debut,
     2640     I                   lafin,
    26352641     I                   nqmax-2,
    2636      I                   nlon,nlev,dtime,
    2637      I                   u,v,t,paprs,pplay,
    2638      I                   pmfu, pmfd, pen_u, pde_u, pen_d, pde_d,
    2639      I                   ycoefh,fm_therm,entr_therm,yu1,yv1,ftsol,
    2640      I                   pctsrf,rlat,frac_impa, frac_nucl,
    2641      I                   rlon,presnivs,pphis,pphi,
     2642     I                   nlon,
     2643     I                   nlev,
     2644     I                   dtime,
     2645     I                   u,
     2646     I                   v,
     2647     I                   t,
     2648     I                   paprs,
     2649     I                   pplay,
     2650     I                   pmfu,
     2651     I                   pmfd,
     2652     I                   pen_u,
     2653     I                   pde_u,
     2654     I                   pen_d,
     2655     I                   pde_d,
     2656     I                   ycoefh,
     2657     I                   fm_therm,
     2658     I                   entr_therm,
     2659     I                   yu1,
     2660     I                   yv1,
     2661     I                   ftsol,
     2662     I                   pctsrf,
     2663     I                   rlat,
     2664     I                   frac_impa,
     2665     I                   frac_nucl,
     2666     I                   rlon,
     2667     I                   presnivs,
     2668     I                   pphis,
     2669     I                   pphi,
    26422670     I                   albsol,
    2643      I                   qx(1,1,1), rhcl,
    2644      I                   cldfra, rneb, diafra, cldliq, itop_con,
     2671     I                   qx(1,1,1),
     2672     I                   rhcl,
     2673     I                   cldfra,
     2674     I                   rneb,
     2675     I                   diafra,
     2676     I                   cldliq,
     2677     I                   itop_con,
    26452678     I                   ibas_con,
    2646      I                   pmflxr,pmflxs,prfl,psfl,
    2647      I                   da,phi,mp,
    2648      I                   upwd,dnwd,
    2649 #ifdef INCA_CH4
     2679     I                   pmflxr,
     2680     I                   pmflxs,
     2681     I                   prfl,
     2682     I                   psfl,
     2683     I                   da,
     2684     I                   phi,
     2685     I                   mp,
     2686     I                   upwd,
     2687     I                   dnwd,
     2688#ifdef INCA
    26502689     I                   flxmass_w,
    26512690#endif
    … …  
    28892928     $                        nbtr,
    28902929     $                        paprs,
     2930#ifdef INCA_CH4
    28912931     $                        q_seri,
     2932#endif
    28922933     $                        annee_ref,
    28932934     $                        day_ini,
     2935#ifdef INCA_AER
     2936     $                        xjour,
     2937     $                        pphi,
     2938     $                        pphis,
     2939     $                        zx_rh,
     2940     $                        qx(1,1,1))
     2941#else
    28942942     $                        xjour)
     2943#endif
    28952944#ifdef INCAINFO
    28962945           WRITE(lunout,*)'OK.'

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

    r620 r625  
    44c
    55c
    6       SUBROUTINE phytrac (iflag_con,rnpb,nstep,
    7      I                    julien,gmtime,
    8      I                    debutphy,lafin,
     6      SUBROUTINE phytrac (iflag_con,
     7     I                    rnpb,
     8     I                    nstep,
     9     I                    julien,
     10     I                    gmtime,
     11     I                    debutphy,
     12     I                    lafin,
    913     I                    nqmax,
    1014     I                    nlon,
    … …  
    2327     I                    pde_d,
    2428     I                    coefh,
    25      I                    fm_therm,entr_therm,
     29     I                    fm_therm,
     30     I                    entr_therm,
    2631     I                    yu1,
    2732     I                    yv1,
    … …  
    4853     I                    prfl,
    4954     I                    psfl,
    50      I                    da,phi,mp,
    51      I                    upwd,dnwd,
     55     I                    da,
     56     I                    phi,
     57     I                    mp,
     58     I                    upwd,
     59     I                    dnwd,
    5260#ifdef INCA
    5361     I                    flxmass_w,
Note: See TracChangeset for help on using the changeset viewer.