Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/enercin.F90
- Timestamp:
- Jul 22, 2024, 9:29:09 PM (2 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/dyn3d_common/enercin.F90
r2336 r5099 1 1 SUBROUTINE enercin ( vcov, ucov, vcont, ucont, ecin ) 2 ! 2 3 3 !------------------------------------------------------------------------------- 4 4 ! Authors: P. Le Van. … … 20 20 ! . V 21 21 ! i,j-1 22 ! 22 23 23 ! alpha4 . . alpha1 24 ! 25 ! 24 25 26 26 ! U . . P . U 27 27 ! i-1,j i,j i,j 28 ! 28 29 29 ! alpha3 . . alpha2 30 ! 31 ! 30 31 32 32 ! . V 33 33 ! i,j 34 ! 34 35 35 ! Kinetic energy at scalar point P(i,j) (excluding poles) is: 36 36 ! Ecin = 0.5 * U(i-1,j)**2 *( alpha3 + alpha4 ) +
Note: See TracChangeset
for help on using the changeset viewer.