Ignore:
Timestamp:
Oct 22, 2020, 2:17:40 PM (4 years ago)
Author:
asima
Message:

Code cleaning : cld*jn are removed as variables, because they only serve as output names.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/phys_local_var_mod.F90

    r3662 r3779  
    301301      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: cldh, cldl, cldm, cldq, cldt, qsat2m
    302302!$OMP THREADPRIVATE(cldh, cldl, cldm, cldq, cldt, qsat2m )
    303       REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: cldhjn, cldljn, cldmjn,cldtjn
    304 !$OMP THREADPRIVATE(cldhjn, cldljn, cldmjn, cldtjn)
     303!AS: cldhjn, cldljn, cldmjn,cldtjn pas utilisés en tant que variables, juste noms de diagnostics
    305304      REAL,ALLOCATABLE,SAVE,DIMENSION(:) :: JrNt
    306305!$OMP THREADPRIVATE(JrNt)
     
    716715      ALLOCATE(cdragm(klon), cdragh(klon), cldh(klon), cldl(klon))
    717716      ALLOCATE(cldm(klon), cldq(klon), cldt(klon), qsat2m(klon))
    718       ALLOCATE(cldhjn(klon), cldljn(klon), cldmjn(klon), cldtjn(klon))
    719717      ALLOCATE(JrNt(klon))
    720718      ALLOCATE(dthmin(klon), evap(klon), fder(klon), plcl(klon), plfc(klon))
     
    10171015      DEALLOCATE(cdragm, cdragh, cldh, cldl)
    10181016      DEALLOCATE(cldm, cldq, cldt, qsat2m)
    1019       DEALLOCATE(cldljn, cldmjn, cldhjn, cldtjn, JrNt)
     1017      DEALLOCATE(JrNt)
    10201018      DEALLOCATE(dthmin, evap, fder, plcl, plfc)
    10211019      DEALLOCATE(prw, prlw, prsw, zustar, zu10m, zv10m, rh2m, s_lcl)
Note: See TracChangeset for help on using the changeset viewer.