Ignore:
Timestamp:
Oct 27, 2004, 11:40:54 AM (20 years ago)
Author:
lmdzadmin
Message:

Initialisations diverses necessaires au portage Prism AC
LF

Location:
LMDZ.3.3/branches/rel-LF/libf/phylmd
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90

    r546 r556  
    26222622
    26232623#include "YOETHF.inc"
    2624 #include "FCTTRE.inc"
     2624!rv#include "FCTTRE.inc"
    26252625#include "indicesol.inc"
    26262626!IM cf JLD
     
    26792679  logical,save         :: first = .true.,second=.false.
    26802680  real                 :: coeff_rel
     2681#include "FCTTRE.inc"
    26812682
    26822683
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F

    r546 r556  
    970970#include "YOETHF.h"
    971971#include "FCTTRE.h"
     972       
    972973c======================================================================
     974!rv initialisations diverses
     975      u10m(:,:)=0.
     976      v10m(:,:)=0.
     977      t2m(:,:)=0.
     978      q2m(:,:)=0.
     979      ffonte(:,:)=0.
     980      fqcalving(:,:)=0.
     981      piz_ae(:,:,:)=0.
     982      tau_ae(:,:,:)=0.
     983      cg_ae(:,:,:)=0.
     984      rain_con(:)=0.
     985      snow_con(:)=0.
     986      bl95_b0=0.
     987      bl95_b1=0.
     988!rv
    973989      modname = 'physiq'
    974990      IF (if_ebil.ge.1) THEN
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/radlwsw.F

    r517 r556  
    163163      REAL*8 ztopswai(kdlon), zsolswai(kdlon) ! dito, indirect
    164164cjq-end
     165!rv
     166      tauae(:,:,:)=0.
     167      pizae(:,:,:)=0.
     168      cgae(:,:,:)=0.
     169!rv
    165170     
    166171c
     
    543548      REAL*8 ZFSUPAI(KDLON,KFLEV+1)
    544549      REAL*8 ZFSDNAI(KDLON,KFLEV+1)
     550      logical initialized
    545551      SAVE ZFSUPAD, ZFSDNAD, ZFSUPAI, ZFSDNAI ! aerosol fluxes
     552!rv
     553      save flag_aer
     554      data initialized/.false./
    546555cjq-end
     556      if(.not.initialized) then
     557        flag_aer=0.
     558        initialized=.TRUE.
     559      endif
     560!rv
    547561     
    548562c
Note: See TracChangeset for help on using the changeset viewer.