Ignore:
Timestamp:
Sep 22, 2004, 11:48:34 AM (20 years ago)
Author:
lmdzadmin
Message:

Suite des adaptations au portage sur SGI et VPP pour Prism (Caubel & Demory)
LF

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

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/branches/rel-LF/libf/phylmd/clmain.F

    r522 r546  
    961961      endif
    962962
     963      psref = 0.
    963964      DO i = 1, knon
    964965         psref(i) = paprs(i,1) !pression de reference est celle au sol
    … …  
    10511052
    10521053c initialisation
    1053        petAcoef =0.
     1054        petAcoef =0.
    10541055        peqAcoef = 0.
    10551056        petBcoef =0.
    10561057        peqBcoef = 0.
    10571058        p1lay =0.
     1059        zlev1(:) = 0.
     1060        temp_air(:) = 0.
     1061        spechum(:) = 0.
     1062        epot_air(:) = 0.
     1063        tq_cdrag(:) = 0.
    10581064       
    10591065c      do i = 1, knon

  • LMDZ.3.3/branches/rel-LF/libf/phylmd/clouds_gno.F

    r495 r546  
    6262      ptconv=.false.
    6363      ratqsc=0.
    64 
     64      CLDF = 0.
    6565
    6666      DO 500 K = 1, ND

  • LMDZ.3.3/branches/rel-LF/libf/phylmd/cv3_routines.F

    r495 r546  
    193193      real A, B ! convect3
    194194
     195cLF initialisation
     196      plcl(:)=0.
     197      tnk(:)=0.
     198      qnk(:)=0.
     199      gznk(:)=0.
     200      pnk(:)=0.
     201      qsnk(:)=0.
     202      rh(:)=0.
     203      chi(:)=0.
    195204c@ !-------------------------------------------------------------------
    196205c@ ! --- Find level of minimum moist static energy
    … …  
    12451254c -------------------------------------------------------
    12461255
     1256      m(:,:) = 0.
     1257
    12471258      do k=1,nl
    12481259       do i=1,ncum
    … …  
    14671478c --- INITIALIZE VARIOUS ARRAYS USED IN THE COMPUTATIONS
    14681479c=====================================================================
     1480
     1481      sij(:,:,:) = 0.
     1482      ment(:,:,:) = 0.
     1483      csum(:,:) = 0.
    14691484
    14701485c ori        do 360 i=1,ncum*nlp
    … …  
    21582173
    21592174c inputs:
    2160       integer ncum,nd,na,ntra,nloc
     2175      integer ncum,nd,na,ntra,nloc, nent(nloc,na)
    21612176      integer icb(nloc), inb(nloc)
    21622177      real delt
    … …  
    21702185      real water(nloc,na), evap(nloc,na), b(nloc,na)
    21712186      real ment(nloc,na,na), qent(nloc,na,na), uent(nloc,na,na)
    2172       real vent(nloc,na,na), nent(nloc,na), elij(nloc,na,na)
     2187      real vent(nloc,na,na), elij(nloc,na,na)
    21732188      real traent(nloc,na,na,ntra)
    21742189      real tv(nloc,nd), tvp(nloc,nd)
    … …  
    22122227      enddo
    22132228
     2229      qcond(:,:) = 0.
    22142230      do i=1,nd
    22152231       do il=1,ncum

  • LMDZ.3.3/branches/rel-LF/libf/phylmd/cv_driver.F

    r418 r546  
    309309!---------------------------------------------------------------------
    310310
     311!LF
     312      qs(:,:) = 0.
     313      qp(:,:) = 0.
     314      ep = 0.
     315      clw = 0.
     316      qcondc = 0.
     317      nent = 0
     318
    311319      do 20 k=1,nd
    312320        do 10 i=1,len

  • LMDZ.3.3/branches/rel-LF/libf/phylmd/fisrtilp.F

    r410 r546  
    374374c           print*,'ZDQS ',zdqs(i)
    375375c--Olivier
     376            zdelq = min(ratqs(i,k),0.99) * zq(i)
    376377            rhcl(i,k)=(zqs(i)+zq(i)-zdelq)/2./zqs(i)
    377378            IF (rneb(i,k) .LE. 0.0) rhcl(i,k)=zq(i)/zqs(i)

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

    r545 r546  
    13401340  INTEGER :: ndexct(iim*(jjm+1)),ndexcs(iim*(jjm+1))
    13411341  REAL :: zx_lon(iim,jjm+1), zx_lat(iim,jjm+1), zjulian
    1342   integer :: idayref
     1342  INTEGER,save :: idayref
    13431343!med  integer :: itau_w
    13441344  integer,save :: itau_w

  • LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F

    r544 r546  
    353353      REAL nhistoW(kmaxm1,lmaxm1,iwmax,nbregdyn)
    354354      REAL nhistoWt(kmaxm1,lmaxm1,iwmax,nbregdyn)
    355       SAVE nhistoWt
     355      SAVE histoW, nhistoW, nhistoWt
    356356
    357357      INTEGER linv
    … …  
    382382      save ok_regdyn, ecrit_regdyn, nid_regdyn
    383383
     384#define histREGDYN
    384385#undef histREGDYN
    385 #define histREGDYN
    386386#ifdef histREGDYN
    387387c     data ok_regdyn,ecrit_regdyn/.true.,0.125/
    … …  
    611611      REAL sens(klon), dsens(klon) ! chaleur sensible et sa derivee
    612612      REAL dlw(klon)    ! derivee infra rouge
     613      SAVE dlw
    613614      REAL bils(klon) ! bilan de chaleur au sol
    614615      REAL wfbils(klon,nbsrf) ! bilan de chaleur au sol, pour chaque
    … …  
    811812c
    812813      INTEGER ibas_con(klon), itop_con(klon)
     814      SAVE itop_con
    813815      REAL rain_con(klon), rain_lsc(klon)
    814816      REAL snow_con(klon), snow_lsc(klon)
    … …  
    12171219c
    12181220c
     1221cLF Initialisations de variables divers (A.Caubel, M.E. Demory)
     1222        clwcon0(:,:)= 0.0
     1223        zx_tmp_2d(:,:)= 0.0
     1224        paire_ter(:) = 0.
     1225        snow_con(:) = 0.
     1226        snow_lsc(:) = 0.
    12191227      ENDIF
    12201228c
Note: See TracChangeset for help on using the changeset viewer.