Changeset 5271 for LMDZ6/trunk/libf/dyn3d_common/enercin.f90
- Timestamp:
- Oct 24, 2024, 4:25:39 PM (26 hours ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3d_common/enercin.f90
r5268 r5271 5 5 !------------------------------------------------------------------------------- 6 6 ! Purpose: Compute kinetic energy at sigma levels. 7 IMPLICIT NONE 8 include "dimensions.h" 7 USE dimensions_mod, ONLY: iim, jjm, llm, ndm 8 IMPLICIT NONE 9 9 10 include "paramet.h" 10 11 include "comgeom.h"
Note: See TracChangeset
for help on using the changeset viewer.