Changeset 5116 for LMDZ6/branches/Amaury_dev/libf/phylmd/ener_conserv.F90

Timestamp:

Jul 24, 2024, 2:54:37 PM (4 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move ismin, ismax, minmax into new lmdz_libmath.f90
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/ener_conserv.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/ener_conserv.F90

@@ -73 +73 @@
    DO k = 1, klev
    DO i = 1, klon
-     IF (fl_cor_ebil > 0) then
+     IF (fl_cor_ebil > 0) THEN
        ZRCPD = RCPD*(1.0+RVTMP2*(pqn(i,k)+pqln(i,k)+pqsn(i,k)))
      ELSE
@@ -165 +165 @@
 !----------------------------------------------------------------------------
 
-   if (iflag_ener_conserv==2) then
+   if (iflag_ener_conserv==2) THEN
       zu(:,:)=puo(:,:)
       zv(:,:)=pvo(:,:)