Changeset 2240 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Feb 10, 2020, 3:04:12 PM (5 years ago)
Author:
cmathe
Message:

GCM MARS: Initialization of mu0_int and ztim1 in nirco2abs.F to prevent crash during debug mode simulations.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/nirco2abs.F

    r1779 r2240  
    183183
    184184         nstep = 20   ! number of integration step /sol
     185         mu0_int(1:ngrid) = 0.
     186         ztim1 = 0.
    185187         do n=1,nstep
    186188            zday_int = (n-1)/float(nstep)
    … …  
    190192     s             ztim1,ztim2,ztim3,
    191193     s             mu0_int,fract_int)
    192             do ig=1,ngrid
     194            do ig=1,ngrid               
    193195               zmu(ig)=sqrt(1224.*mu0_int(ig)*mu0_int(ig)+1.)/35.
    194196
Note: See TracChangeset for help on using the changeset viewer.