Changeset 3850 for trunk/LMDZ.COMMON/libf/evolution/pemetat0.F90
- Timestamp:
- Jul 15, 2025, 2:43:41 PM (11 days ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.COMMON/libf/evolution/pemetat0.F90
r3842 r3850 393 393 do islope = 1,nslope 394 394 call ini_layering(layerings_map(ig,islope)) 395 print*, 'coucou', 1.05*ini_huge_h2oice/rho_h2oice, layerings_map(ig,islope)%top%top_elevation396 395 call add_stratum(layerings_map(ig,islope),1.05*ini_huge_h2oice/rho_h2oice,0.,ini_huge_h2oice/rho_h2oice,0.05*ini_huge_h2oice/rho_h2oice,0.,0.) 397 396 enddo
Note: See TracChangeset
for help on using the changeset viewer.