Ignore:
Timestamp:
Mar 16, 2026, 3:24:12 PM (2 weeks ago)
Author:
jbclement
Message:

PEM:

  • Add a periodic backup based on a single wrapper which builds PCM-compatible climate state and writes "restart" files.
  • Remove condition "if (.not. allocated(*))" for more strict safeguard.

JBC

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.COMMON/libf/evolution/frost.F90

    r4110 r4134  
    6363! CODE
    6464! ----
    65 if (.not. allocated(h2ofrost_PCM)) allocate(h2ofrost_PCM(ngrid,nslope))
    66 if (.not. allocated(co2frost_PCM)) allocate(co2frost_PCM(ngrid,nslope))
    67 if (.not. allocated(h2o_frost4PCM)) allocate(h2o_frost4PCM(ngrid,nslope))
    68 if (.not. allocated(co2_frost4PCM)) allocate(co2_frost4PCM(ngrid,nslope))
     65allocate(h2ofrost_PCM(ngrid,nslope))
     66allocate(co2frost_PCM(ngrid,nslope))
     67allocate(h2o_frost4PCM(ngrid,nslope))
     68allocate(co2_frost4PCM(ngrid,nslope))
    6969h2ofrost_PCM(:,:) = 0._dp
    7070co2frost_PCM(:,:) = 0._dp
Note: See TracChangeset for help on using the changeset viewer.