Changeset 2379 for trunk/LMDZ.TITAN/libf/phytitan

Timestamp:

Jun 24, 2020, 10:22:18 AM (4 years ago)

Author:

jvatant

Message:

Titan GCM : Fix a minor typo in callcorrk

File:

• trunk/LMDZ.TITAN/libf/phytitan/callcorrk.F90 (modified) (1 diff)

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

@@ -204 +204 @@
                      enddo
                   else ! standard
-                     fact = ( 10.0**(pfgasref(ip)+2.0) - pplay(1,ilay+1) ) / ( pplay(1,ilay) - pplay(1,ilay+1) ) ! pfgasref=log(p[mbar])
+                     fact = ( 10.0**(pfgasref(ip)+2.0) - pplay(ig,ilay+1) ) / ( pplay(ig,ilay) - pplay(ig,ilay+1) ) ! pfgasref=log(p[mbar])
                      do iq=1,L_REFVAR
                         if ( radvar_mask(iq) ) then