Changeset 4074 for trunk/LMDZ.COMMON/libf/evolution/frost.F90
- Timestamp:
- Feb 17, 2026, 2:45:53 PM (10 days ago)
- File:
-
- 1 edited
-
trunk/LMDZ.COMMON/libf/evolution/frost.F90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.COMMON/libf/evolution/frost.F90
r4071 r4074 67 67 if (.not. allocated(h2o_frost4PCM)) allocate(h2o_frost4PCM(ngrid,nslope)) 68 68 if (.not. allocated(co2_frost4PCM)) allocate(co2_frost4PCM(ngrid,nslope)) 69 h2ofrost_PCM(:,:) = 0._dp 70 co2frost_PCM(:,:) = 0._dp 71 h2o_frost4PCM(:,:) = 0._dp 72 co2_frost4PCM(:,:) = 0._dp 69 73 70 74 END SUBROUTINE ini_frost
Note: See TracChangeset
for help on using the changeset viewer.
