Ignore:
Timestamp:
Jan 23, 2023, 8:38:31 AM (21 months ago)
Author:
emillour
Message:

Generic PCM:
Some minor fixes:

  • missing igas_CO2 in "use gases_h" in optci.F90, optcv.F90, sugas_corrk.F90
  • handle case when moist adjustement is not called in physiq: some of its outputs still need be set to zero as they are used later on.

EM

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

Legend:

Unmodified
Added
Removed

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

    r2861 r2875  
    1212                      L_NLEVRAD, L_REFVAR, naerkind
    1313  use radcommon_h, only: gasi,tlimit,wrefVAR,Cmk,tgasref,pfgasref,wnoi,scalep,indi,glat_ig
    14   use gases_h, only: gfrac, ngasmx, igas_N2, igas_He, igas_H2O, igas_H2, igas_CH4
     14  use gases_h, only: gfrac, ngasmx, igas_N2, igas_He, igas_H2O, igas_H2, &
     15                     igas_CH4, igas_CO2
    1516  use comcstfi_mod, only: g, r, mugaz
    1617  use callkeys_mod, only: kastprof,continuum,graybody

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

    r2861 r2875  
    1111  use radinc_h, only: L_NLAYRAD, L_NLEVRAD, L_LEVELS, L_NSPECTV, L_NGAUSS, L_REFVAR, NAERKIND
    1212  use radcommon_h, only: gasv, tlimit, wrefVAR, Cmk, tgasref, pfgasref,wnov,scalep,indv,glat_ig
    13   use gases_h, only: gfrac, ngasmx, igas_H2, igas_H2O, igas_He, igas_N2, igas_CH4
     13  use gases_h, only: gfrac, ngasmx, igas_H2, igas_H2O, igas_He, igas_N2, &
     14                     igas_CH4, igas_CO2
    1415  use comcstfi_mod, only: g, r, mugaz
    1516  use callkeys_mod, only: kastprof,continuum,graybody,callgasvis

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

    r2871 r2875  
    14631463                     
    14641464                  endif ! end of 'enertest'
    1465                endif ! end of '.not.calltherm'
     1465               else
     1466                  ! rneb_man, dqmoist are output of moistadj, but used later on
     1467                  ! so set them to zero if moistadj is not called
     1468                  rneb_man(:,:)=0
     1469                  dqmoist(:,:,:)=0
     1470               endif ! end of '(.not.calltherm).and.moistadjustment'
    14661471               
    14671472               ! Large scale condensation/evaporation.

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

    r2861 r2875  
    3030      use comcstfi_mod, only: mugaz
    3131      use gases_h, only: gnom, ngasmx, &
    32                          igas_H2, igas_H2O, igas_He, igas_N2, igas_CH4
     32                         igas_H2, igas_H2O, igas_He, igas_N2, igas_CH4, &
     33                         igas_CO2
    3334      use ioipsl_getin_p_mod, only: getin_p
    3435      use callkeys_mod, only: varactive,varfixed,graybody,callgasvis,&
Note: See TracChangeset for help on using the changeset viewer.