Changeset 2585


Ignore:
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

Location:
trunk/LMDZ.GENERIC
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/README

    r2583 r2585  
    16971697Bug fix (concerns OpenMP only) in inifis. And some cleanup in the
    16981698output messages.
     1699
     1700== 17/11/2021 == YJ
     1701Correct missing initialisation for k-coefficients mixing on the fly

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

    r2550 r2585  
    545545      do nt=1,L_NTREF
    546546         do np=1,L_NPREF
    547             do nh=1,L_REFVAR
     547            do nh=1,L_REFVAR+nrecomb_tot
    548548               do ng = 1,L_NGAUSS
    549549
    … …  
    574574
    575575      do nt=1,L_NTREF
    576          do nh=1,L_REFVAR
     576         do nh=1,L_REFVAR+nrecomb_tot
    577577            do nw=1,L_NSPECTI
    578578               do ng=1,L_NGAUSS
    … …  
    643643
    644644      do nt=1,L_NTREF
    645          do nh=1,L_REFVAR
     645         do nh=1,L_REFVAR+nrecomb_tot
    646646            do nw=1,L_NSPECTV
    647647               do ng=1,L_NGAUSS
Note: See TracChangeset for help on using the changeset viewer.