Changeset 2240

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.

Location:

trunk/LMDZ.MARS

Files:

• README (modified) (1 diff)
• libf/phymars/nirco2abs.F (modified) (2 diffs)

trunk/LMDZ.MARS/README

@@ -2858 +2858 @@
 == 04/02/2020 == AB
 Small improvements in simu_MCS_temp.F90 : 1) The binning method is now more consistent with the MCS file ; 2) stats files are more rigorously recognized.
+
+== 10/02/2020 == CM
+Initialization of mu0_int and ztim1 in 'nirco2abs.F' to prevent crash during debug mode simulations.

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

@@ -183 +183 @@
 
          nstep = 20   ! number of integration step /sol
+         mu0_int(1:ngrid) = 0.
+         ztim1 = 0.
          do n=1,nstep
             zday_int = (n-1)/float(nstep)
@@ -190 +192 @@
      s             ztim1,ztim2,ztim3,
      s             mu0_int,fract_int)
-            do ig=1,ngrid
+            do ig=1,ngrid               
                zmu(ig)=sqrt(1224.*mu0_int(ig)*mu0_int(ig)+1.)/35.