Changeset 5282 for LMDZ6/trunk/libf/phylmd/phys_output_var_mod.f90

Timestamp:

Oct 28, 2024, 1:11:48 PM (6 hours ago)

Author:

abarral

Message:

Turn iniprint.h clesphys.h into modules
Remove unused description.h

File:

• LMDZ6/trunk/libf/phylmd/phys_output_var_mod.f90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/phys_output_var_mod.f90

@@ -164 +164 @@
   
   REAL, SAVE, ALLOCATABLE:: tkt(:) ! (klon)
-  ! épaisseur (m) de la couche de diffusion thermique (microlayer)
+  ! �paisseur (m) de la couche de diffusion thermique (microlayer)
   ! cool skin thickness
 
   REAL, SAVE, ALLOCATABLE:: tks(:) ! (klon)
-  ! épaisseur (m) de la couche de diffusion de masse (microlayer)
+  ! �paisseur (m) de la couche de diffusion de masse (microlayer)
   
   REAL, SAVE, ALLOCATABLE:: taur(:) ! (klon) momentum flux due to rain, in Pa
@@ -185 +185 @@
   !======================================================================
   SUBROUTINE phys_output_var_init
+    USE clesphys_mod_h
     use dimphy
     use config_ocean_skin_m, only: activate_ocean_skin
-
+    USE clesphys_mod_h
     IMPLICIT NONE
-
-    include "clesphys.h"
-
-    !------------------------------------------------
 
     allocate(snow_o(klon), zfra_o(klon))
@@ -213 +210 @@
     allocate(cloudth_sth(klon,klev))
     allocate(cloudth_senv(klon,klev))
-    cloudth_sth = 0. ; cloudth_senv = 0. 
+    cloudth_sth = 0. ; cloudth_senv = 0.
     allocate(cloudth_sigmath(klon,klev))
     allocate(cloudth_sigmaenv(klon,klev))
@@ -268 +265 @@
     IMPLICIT NONE
 
-    include "clesphys.h"
 
     deallocate(snow_o,zfra_o,itau_con)