Changeset 5095 for LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/gases.F90

Timestamp:

Jul 22, 2024, 9:46:57 AM (2 months ago)

Author:

abarral

Message:

Revert cosp*/ from the trunk, as it's external code
Add missing bits from FCM2 source

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/gases.F90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/gases.F90

@@ -27 +27 @@
   nbands_o2 = 48 ,&
   nbands_h2o = 30
-  real(kind=8), intent(in) :: PRES_mb, T, RH, f
-  real(kind=8) :: gases, th, e, p, sumo, gm0, a0, ap, term1, term2, term3, &
+  real*8, intent(in) :: PRES_mb, T, RH, f
+  real*8 :: gases, th, e, p, sumo, gm0, a0, ap, term1, term2, term3, &
             bf, be, term4, npp
-  real(kind=8), dimension(nbands_o2) :: v0, a1, a2, a3, a4, a5, a6
-  real(kind=8), dimension(nbands_h2o) :: v1, b1, b2, b3
-  real(kind=8) :: e_th,one_th,pth3,eth35,aux1,aux2,aux3,aux4
-  real(kind=8) :: gm,delt,x,y,gm2
-  real(kind=8) :: fpp_o2,fpp_h2o,s_o2,s_h2o
+  real*8, dimension(nbands_o2) :: v0, a1, a2, a3, a4, a5, a6
+  real*8, dimension(nbands_h2o) :: v1, b1, b2, b3
+  real*8 :: e_th,one_th,pth3,eth35,aux1,aux2,aux3,aux4
+  real*8 :: gm,delt,x,y,gm2
+  real*8 :: fpp_o2,fpp_h2o,s_o2,s_h2o
   integer :: i