Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/fcttre.func.h

Timestamp:

Aug 2, 2024, 2:12:03 PM (3 months ago)

Author:

abarral

Message:

Add missing klon on strataer_emiss_mod.F90
Correct various missing explicit declarations
Replace tabs by spaces (tabs are not part of the fortran charset)
Continue cleaning modules
Removed unused arguments and variables

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/fcttre.func.h (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/ecrad/ifs/fcttre.func.h

@@ -170 +170 @@
 FOEELIQ2ICE( PTARE )  = EXP(      (PTARE-RTT)*(R3LES/(PTARE-R4LES) - R3IES/(PTARE-R4IES)))
 FOELSON( PTARE ) = EXP( -6096.9385_JPRB/PTARE + 21.2409642_JPRB &
-                     - 2.711193E-2_JPRB * PTARE    &
+                 - 2.711193E-2_JPRB * PTARE    &
                      + 1.673952E-5_JPRB * PTARE**2 &
-                     + 2.433502_JPRB * LOG(PTARE))
+             + 2.433502_JPRB * LOG(PTARE))
 
 REAL(KIND=JPRB) :: FOEEWM_V,FOEEWMCU_V,FOELES_V,FOEIES_V