Changeset 810


Ignore:
Timestamp:
Oct 18, 2012, 6:26:26 PM (12 years ago)
Author:
aslmd
Message:

LMDZ.GENERIC: corrected a typo in sugas_corrk. was not SPECTV buy SPECTI.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r773 r810  
    412412      else
    413413         print*,'Infrared corrk gaseous absorption is set to zero.'
    414          gasi8(1:L_NTREF,1:L_NPREF,1:L_REFVAR,1:L_NSPECTV,1:L_NGAUSS)=0.0
     414         gasi8(1:L_NTREF,1:L_NPREF,1:L_REFVAR,1:L_NSPECTI,1:L_NGAUSS)=0.0
    415415      endif
    416416
Note: See TracChangeset for help on using the changeset viewer.