Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/phylmd/Ocean_skin/esat_m.F90

Timestamp:

Jul 24, 2024, 4:23:34 PM (4 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/Ocean_skin/esat_m.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/Ocean_skin/esat_m.F90

@@ -10 +10 @@
     ! J. Appl. Meteor. 20, 1527-1532, equation (8).
 
-    real, intent(in):: T ! temperature, in K
-    real, intent(in):: P ! air pressure, in Pa
+    REAL, INTENT(IN):: T ! temperature, in K
+    REAL, INTENT(IN):: P ! air pressure, in Pa
 
     !--------------------------------------------------------------------