Changeset 4110 for trunk/LMDZ.COMMON/libf/evolution/frost.F90
- Timestamp:
- Mar 9, 2026, 10:29:53 AM (4 days ago)
- File:
-
- 1 edited
-
trunk/LMDZ.COMMON/libf/evolution/frost.F90 (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.COMMON/libf/evolution/frost.F90
r4074 r4110 186 186 ! DEPENDENCIES 187 187 ! ------------ 188 use display, only: print_msg 188 use display, only: print_msg, LVL_NFO 189 189 190 190 ! DECLARATION … … 198 198 ! CODE 199 199 ! ---- 200 call print_msg('> Computing frost to give back to the PCM (metamorphism)' )200 call print_msg('> Computing frost to give back to the PCM (metamorphism)',LVL_NFO) 201 201 202 202 h2o_frost4PCM(:,:) = 0._dp
Note: See TracChangeset
for help on using the changeset viewer.
