Changeset 746 for trunk/LMDZ.MARS/libf/phymars/watercloud.F

Timestamp:

Jul 27, 2012, 12:30:45 AM (12 years ago)

Author:

jbmadeleine

Message:

Changed tau(ig,l) to tau(ig,1) in the call to updaterice_typ in
watercloud.F (resulted in NaNs?, we were out of the bounds of tau).

File:

• trunk/LMDZ.MARS/libf/phymars/watercloud.F (modified) (1 diff)

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

@@ -420 +420 @@
      &   (pdq(ig,l,igcm_h2o_ice) +                   ! ice mass
      &    pdqcloud(ig,l,igcm_h2o_ice))*ptimestep,    ! ice mass
-     &    tau(ig,l),pzlay(ig,l),rice(ig,l)) 
+     &    tau(ig,1),pzlay(ig,l),rice(ig,l)) 
 
           ENDDO