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.

Location:
LMDZ6/trunk/libf/phylmd
Files:
2 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)
  • LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

    r3756 r3779  
    258258         sissnow, runoff, albsol3_lic, evap_pot, &
    259259         t2m, fluxt, fluxlat, fsollw, fsolsw, &
    260          wfbils, wfbilo, wfevap, wfrain, wfsnow, & 
     260         wfbils, wfbilo, wfevap, wfrain, wfsnow, &
    261261         cdragm, cdragh, cldl, cldm, &
    262          cldh, cldt, JrNt, cldljn, cldmjn, cldhjn, &
    263          cldtjn, cldq, flwp, fiwp, ue, ve, uq, vq, &
     262         cldh, cldt, JrNt,   & ! only output names: cldljn,cldmjn,cldhjn,cldtjn
     263         cldq, flwp, fiwp, ue, ve, uq, vq, &
    264264         uwat, vwat, &
    265265         plcl, plfc, wbeff, convoccur, upwd, dnwd, dnwd0, prw, prlw, prsw, &
Note: See TracChangeset for help on using the changeset viewer.