Changeset 3512 for trunk/LMDZ.COMMON/libf/evolution/ice_table_mod.F90
- Timestamp:
- Nov 12, 2024, 6:35:33 PM (9 days ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.COMMON/libf/evolution/ice_table_mod.F90
r3498 r3512 28 28 29 29 allocate(icetable_depth(ngrid,nslope)) 30 if (icetable_equilibrium) then 31 allocate(icetable_thickness(ngrid,nslope)) 32 else if (icetable_dynamic) then 33 allocate(ice_porefilling(ngrid,nsoil,nslope)) 34 endif 30 allocate(icetable_thickness(ngrid,nslope)) 31 allocate(ice_porefilling(ngrid,nsoil,nslope)) 35 32 36 33 END SUBROUTINE ini_ice_table
Note: See TracChangeset
for help on using the changeset viewer.