Changeset 2529


Ignore:
Timestamp:
May 31, 2021, 5:44:02 PM (4 years ago)
Author:
emillour
Message:

Generic GCM:
Cosmetic changes in calc_rayleigh.
EM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r1397 r2529  
    2727      use radinc_h, only: L_NSPECTV
    2828      use radcommon_h, only: WAVEV, BWNV, DWNV, tstellar, tauray, taurayvar, scalep
    29       use gases_h
     29      use gases_h, only: ngasmx, vgas, gnom, gfrac, igas_CO2, igas_H2, &
     30                         igas_H2O, igas_He, igas_N2
    3031      use comcstfi_mod, only: g, mugaz
    3132
    … …  
    7879            else
    7980               print*,'Error in calc_rayleigh: Gas species not recognised!'
    80                call abort
     81               print*,"igas=",igas," gnom(igas)=",trim(gnom(igas))
     82               call abort_physic("calc_rayleigh","Invalid gas",1)
    8183            endif
    8284
    … …  
    127129                  else
    128130                     print*,'Error in calc_rayleigh: Gas species not recognised!'
    129                      call abort
     131                     call abort_physic("calc_rayleigh","Gas species not recognised",1)
    130132                  endif
    131133               endif
Note: See TracChangeset for help on using the changeset viewer.