Changeset 3603 for trunk/LMDZ.COMMON/libf/evolution/evol_ice_mod.F90
- Timestamp:
- Jan 28, 2025, 5:16:15 PM (2 days ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.COMMON/libf/evolution/evol_ice_mod.F90
r3571 r3603 34 34 !======================================================================= 35 35 ! Evolution of CO2 ice for each physical point 36 write(*,*) ' Evolution of co2 ice'36 write(*,*) '> Evolution of CO2 ice' 37 37 38 38 co2_ice_old = co2_ice … … 88 88 real, dimension(ngrid,nslope) :: new_tend ! Tendencies computed in order to conserve h2o ice on the surface, only exchange between surface are done 89 89 !======================================================================= 90 write(*,*) '> Evolution of H2O ice' 90 91 if (ngrid /= 1) then ! Not in 1D 91 92 ! We compute the amount of condensing and sublimating h2o ice
Note: See TracChangeset
for help on using the changeset viewer.