Changeset 962 for trunk/LMDZ.GENERIC


Ignore:
Timestamp:
May 17, 2013, 9:39:45 AM (12 years ago)
Author:
jleconte
Message:

finish correction ISR calculation in callcorrk

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r961 r962  
    676676
    677677         else                          ! during the night, fluxes = 0
    678             nfluxtopv       = 0.0
    679             nfluxoutv_nu(:) = 0.0
    680             nfluxgndv_nu(:) = 0.0
     678            nfluxtopv       = 0.0d0
     679            fluxtopvdn      = 0.0d0
     680            nfluxoutv_nu(:) = 0.0d0
     681            nfluxgndv_nu(:) = 0.0d0
    681682            do l=1,L_NLAYRAD
    682                fmnetv(l)=0.0
    683                fluxupv(l)=0.0
    684                fluxdnv(l)=0.0
     683               fmnetv(l)=0.0d0
     684               fluxupv(l)=0.0d0
     685               fluxdnv(l)=0.0d0
    685686            end do
    686687         end if
Note: See TracChangeset for help on using the changeset viewer.