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

Timestamp:

Nov 17, 2021, 6:32:04 PM (3 years ago)

Author:

yjaziri

Message:

Generic GCM:
Correct missing initialisation for k-coefficients mixing on the fly
YJ

File:

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

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

@@ -545 +545 @@
       do nt=1,L_NTREF
          do np=1,L_NPREF
-            do nh=1,L_REFVAR
+            do nh=1,L_REFVAR+nrecomb_tot
                do ng = 1,L_NGAUSS
 
@@ -574 +574 @@
 
       do nt=1,L_NTREF
-         do nh=1,L_REFVAR
+         do nh=1,L_REFVAR+nrecomb_tot
             do nw=1,L_NSPECTI
                do ng=1,L_NGAUSS
@@ -643 +643 @@
 
       do nt=1,L_NTREF
-         do nh=1,L_REFVAR
+         do nh=1,L_REFVAR+nrecomb_tot
             do nw=1,L_NSPECTV
                do ng=1,L_NGAUSS