Ignore:
Timestamp:
Mar 16, 2026, 3:24:12 PM (9 days 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/tracers.F90

    r4110 r4134  
    7777
    7878! Allocation
    79 if (.not. allocated(mmol)) allocate(mmol(nq))
    80 if (.not. allocated(qnames)) allocate(qnames(nq))
    81 if (.not. allocated(q_PCM)) allocate(q_PCM(ngrid,nlayer,nq))
     79allocate(mmol(nq))
     80allocate(qnames(nq))
     81allocate(q_PCM(ngrid,nlayer,nq))
    8282mmol(:) = 0._dp
    8383q_PCM(:,:,:) = 0._dp
Note: See TracChangeset for help on using the changeset viewer.