Changeset 5099 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/enercin_loc.F90

Timestamp:

Jul 22, 2024, 9:29:09 PM (2 months ago)

Author:

abarral

Message:

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line

File:

• LMDZ6/branches/Amaury_dev/libf/dyn3dmem/enercin_loc.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/enercin_loc.F90

@@ -1 +1 @@
 SUBROUTINE enercin_loc ( vcov, ucov, vcont, ucont, ecin )
-!
+
 !-------------------------------------------------------------------------------
 ! Authors: P. Le Van.
@@ -21 +21 @@
 !                 . V
 !                i,j-1
-!
+
 !      alpha4 .       . alpha1
-!
-!
+
+
 !        U .      . P     . U
 !       i-1,j    i,j      i,j
-!
+
 !      alpha3 .       . alpha2
-!
-!
+
+
 !                 . V
 !                i,j
-!
+
 ! Kinetic energy at scalar point P(i,j) (excluding poles) is:
 !       Ecin = 0.5 * U(i-1,j)**2 *( alpha3 + alpha4 )  +