Changeset 5293 for LMDZ6/trunk/libf/phylmdiso

Timestamp:

Oct 28, 2024, 5:10:20 PM (5 weeks ago)

Author:

abarral

Message:

Move calcul_divers.h to module

Location:

LMDZ6/trunk/libf/phylmdiso

Files:

• calcul_divers_mod_h.f90 (moved) (moved from LMDZ6/trunk/libf/phylmdiso/calcul_divers.h) (1 diff)
• physiq_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmdiso/calcul_divers_mod_h.f90

@@ -1 @@
-link ../phylmd/calcul_divers.h
+link ../phylmd/calcul_divers_mod_h.f90

LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

@@ -295 +295 @@
        zustar, zu10m, zv10m, rh2m, qsat2m, &
        zq2m, zt2m, zn2mout, weak_inversion, &
-       zt2m_min_mon, zt2m_max_mon,   &         ! pour calcul_divers.h
-       t2m_min_mon, t2m_max_mon,  &            ! pour calcul_divers.h
        !
        s_pblh_x, s_pblh_w, &
@@ -436 +434 @@
        USE alpale_mod
     USE yoethf_mod_h
+    USE calcul_divers_mod_h, ONLY: calcul_divers
 
     IMPLICIT NONE
@@ -7093 +7092 @@
     !
     !IM initialisation + calculs divers diag AMIP2
-    !
-    include "calcul_divers.h"
+    CALL calcul_divers(itap, itapm1, un_jour)
     !
     !IM Interpolation sur les niveaux de pression du NMC