Changeset 2529 for trunk/LMDZ.GENERIC/libf/phystd/calc_rayleigh.F90

Timestamp:

May 31, 2021, 5:44:02 PM (3 years ago)

Author:

emillour

Message:

Generic GCM:
Cosmetic changes in calc_rayleigh.
EM

File:

• trunk/LMDZ.GENERIC/libf/phystd/calc_rayleigh.F90 (modified) (3 diffs)

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

@@ -27 +27 @@
       use radinc_h, only: L_NSPECTV
       use radcommon_h, only: WAVEV, BWNV, DWNV, tstellar, tauray, taurayvar, scalep
-      use gases_h
+      use gases_h, only: ngasmx, vgas, gnom, gfrac, igas_CO2, igas_H2, &
+                         igas_H2O, igas_He, igas_N2
       use comcstfi_mod, only: g, mugaz
 
@@ -78 +79 @@
             else
                print*,'Error in calc_rayleigh: Gas species not recognised!'
-               call abort
+               print*,"igas=",igas," gnom(igas)=",trim(gnom(igas))
+               call abort_physic("calc_rayleigh","Invalid gas",1)
             endif
 
@@ -127 +129 @@
                   else
                      print*,'Error in calc_rayleigh: Gas species not recognised!'
-                     call abort
+                     call abort_physic("calc_rayleigh","Gas species not recognised",1)
                   endif
                endif