Changeset 2328 for trunk/LMDZ.TITAN/libf


Ignore:
Timestamp:
May 19, 2020, 10:50:11 AM (5 years ago)
Author:
jvatant
Message:

Fix a bug introduced in r2291, error on array declaration
--JVO

Location:
trunk/LMDZ.TITAN/libf/phytitan
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.TITAN/libf/phytitan/phys_state_var_mod.F90

    r2292 r2328  
    124124         ! This is defined in radcommon_h
    125125        ALLOCATE(gzlat(klon,klev))
    126         ALLOCATE(gzlat_ig(klon))
    127         ALLOCATE(Cmk(klon))
     126        ALLOCATE(gzlat_ig(klev))
     127        ALLOCATE(Cmk(klev))
     128        ! This is defined in turb_mod
    128129        allocate(wstar(klon))
    129130        allocate(ustar(klon))

  • trunk/LMDZ.TITAN/libf/phytitan/physiq_mod.F90

    r2292 r2328  
    1515 
    1616      use radinc_h, only : L_NSPECTI,L_NSPECTV
    17       use radcommon_h, only: sigma, gzlat, gzlat_ig, Cmk, grav, BWNV
     17      use radcommon_h, only: sigma, gzlat, grav, BWNV
    1818      use surfdat_h, only: phisfi, zmea, zstd, zsig, zgam, zthe
    1919      use comchem_h, only: nkim, cnames, nlaykim_up, ykim_up, ykim_tot, botCH4
Note: See TracChangeset for help on using the changeset viewer.