Index: trunk/LMDZ.COMMON/libf/evolution/frost.F90
===================================================================
--- trunk/LMDZ.COMMON/libf/evolution/frost.F90	(revision 4110)
+++ trunk/LMDZ.COMMON/libf/evolution/frost.F90	(revision 4134)
@@ -63,8 +63,8 @@
 ! CODE
 ! ----
-if (.not. allocated(h2ofrost_PCM)) allocate(h2ofrost_PCM(ngrid,nslope))
-if (.not. allocated(co2frost_PCM)) allocate(co2frost_PCM(ngrid,nslope))
-if (.not. allocated(h2o_frost4PCM)) allocate(h2o_frost4PCM(ngrid,nslope))
-if (.not. allocated(co2_frost4PCM)) allocate(co2_frost4PCM(ngrid,nslope))
+allocate(h2ofrost_PCM(ngrid,nslope))
+allocate(co2frost_PCM(ngrid,nslope))
+allocate(h2o_frost4PCM(ngrid,nslope))
+allocate(co2_frost4PCM(ngrid,nslope))
 h2ofrost_PCM(:,:) = 0._dp
 co2frost_PCM(:,:) = 0._dp