Changeset 2032 for trunk/LMDZ.GENERIC/libf/phystd/sugas_corrk.F90

Timestamp:

Oct 30, 2018, 12:22:31 PM (6 years ago)

Author:

emillour

Message:

Generic GCM:

• correct a bug introduced in revision 2026; now that L_NGAUSS is a parameter read in via sugas_corrk (called at first call by callcorrk), automatic arrays of size L_NGAUSS cannot be declared in callcorrk and must be allocated once the value of L_NGAUSS has been set.
• turned optci, optcv and callcorrk into modules in the process.

EM

File:

• trunk/LMDZ.GENERIC/libf/phystd/sugas_corrk.F90 (modified) (2 diffs)

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

@@ -20 +20 @@
 !==================================================================
 
-      use radinc_h
+      use radinc_h, only: corrkdir, banddir, L_NSPECTI, L_NSPECTV, &
+                          L_NGAUSS, L_NPREF, L_NTREF, L_REFVAR, L_PINT
       use radcommon_h, only : pgasref,pfgasref,pgasmin,pgasmax
       use radcommon_h, only : tgasref,tgasmin,tgasmax
@@ -27 +28 @@
       use datafile_mod, only: datadir
       use comcstfi_mod, only: mugaz
-      use gases_h
+      use gases_h, only: gnom, ngasmx, &
+                         igas_H2, igas_H2O, igas_He, igas_N2
       use ioipsl_getin_p_mod, only: getin_p
       use callkeys_mod, only: varactive,varfixed,graybody,callgasvis,&