Changeset 3041 for trunk


Ignore:
Timestamp:
Sep 13, 2023, 11:28:05 AM (15 months ago)
Author:
sglmd
Message:

some arrays were not initiated to zero: when compiled with gfortran, it led to errors during execution

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r2891 r3041  
    124124   ! Let's loop on tracers
    125125
     126
     127   dq_rain_generic_vap(1:ngrid,1:nlayer,1:nq) = 0.0
     128   dq_rain_generic_cld(1:ngrid,1:nlayer,1:nq) = 0.0
     129   dqsrain_generic(:,:) = 0.0
     130
    126131   do iq=1,nq
    127132
Note: See TracChangeset for help on using the changeset viewer.