Ignore:
Timestamp:
Aug 3, 2022, 2:23:39 PM (3 years ago)
Author:
emillour
Message:

Generic GCM:
Some cleanup:

  • remove top level obsolete "patch_large_domains" directory
  • remove unused "watercaptag" field in the physics.

EM

Location:
trunk/LMDZ.GENERIC/libf/phystd
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/phystd/dyn1d/rcm1d.F

    r2714 r2784  
    77      use infotrac, only: nqtot, tname
    88      use tracer_h, only: noms, is_condensable
    9       use surfdat_h, only: albedodat, phisfi, dryness, watercaptag,
     9      use surfdat_h, only: albedodat, phisfi, dryness,
    1010     &                     zmea, zstd, zsig, zgam, zthe,
    1111     &                     emissiv, emisice, iceradius,

  • trunk/LMDZ.GENERIC/libf/phystd/initracer.F90

    r2731 r2784  
    11      SUBROUTINE initracer(ngrid,nq,nametrac)
    22
    3       use surfdat_h, ONLY: dryness, watercaptag
     3      use surfdat_h, ONLY: dryness
    44      USE tracer_h
    55      USE callkeys_mod, only: water
    … …  
    502502         !! this is defined in surfdat_h.F90
    503503         IF (.not.ALLOCATED(dryness)) ALLOCATE(dryness(ngrid))
    504          IF (.not.ALLOCATED(watercaptag)) ALLOCATE(watercaptag(ngrid))
    505504
    506505         do ig=1,ngrid
    507            if (ngrid.ne.1) watercaptag(ig)=.false.
    508506           dryness(ig) = 1.
    509507         enddo

  • trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90

    r2736 r2784  
    2424      use aerosol_mod, only: iaero_co2, iaero_h2o
    2525      use surfdat_h, only: phisfi, zmea, zstd, zsig, zgam, zthe, &
    26                            dryness, watercaptag
     26                           dryness
    2727      use comdiurn_h, only: coslat, sinlat, coslon, sinlon
    2828      use comsaison_h, only: mu0, fract, dist_star, declin, right_ascen

  • trunk/LMDZ.GENERIC/libf/phystd/surfdat_h.F90

    r1482 r2784  
    1919       real,allocatable,dimension(:) :: dryness  !"Dryness coefficient" for grnd water ice sublimation
    2020                                                 ! AS: previously in tracer.h. it is more logical here.
    21 
    22        logical,allocatable,dimension(:) :: watercaptag !! was in watercap.h
    23 !$OMP THREADPRIVATE(dryness,watercaptag)
     21!$OMP THREADPRIVATE(dryness)
    2422
    2523       end module surfdat_h
Note: See TracChangeset for help on using the changeset viewer.