Changeset 2379 for trunk


Ignore:
Timestamp:
Jun 24, 2020, 10:22:18 AM (4 years ago)
Author:
jvatant
Message:

Titan GCM : Fix a minor typo in callcorrk

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.TITAN/libf/phytitan/callcorrk.F90

    r2366 r2379  
    204204                     enddo
    205205                  else ! standard
    206                      fact = ( 10.0**(pfgasref(ip)+2.0) - pplay(1,ilay+1) ) / ( pplay(1,ilay) - pplay(1,ilay+1) ) ! pfgasref=log(p[mbar])
     206                     fact = ( 10.0**(pfgasref(ip)+2.0) - pplay(ig,ilay+1) ) / ( pplay(ig,ilay) - pplay(ig,ilay+1) ) ! pfgasref=log(p[mbar])
    207207                     do iq=1,L_REFVAR
    208208                        if ( radvar_mask(iq) ) then
Note: See TracChangeset for help on using the changeset viewer.