Changeset 5282 for LMDZ6/trunk/libf/phylmd/dyn1d

Timestamp:

Oct 28, 2024, 1:11:48 PM (3 months ago)

Author:

abarral

Message:

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

Location:

LMDZ6/trunk/libf/phylmd/dyn1d

Files:

• old_lmdz1d.f90 (modified) (3 diffs)
• scm.f90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/dyn1d/old_lmdz1d.f90

@@ -5 +5 @@
       SUBROUTINE old_lmdz1d
 
-   USE ioipsl, only: ju2ymds, ymds2ju, ioconf_calendar,getin
+   USE clesphys_mod_h
+      USE ioipsl, only: ju2ymds, ymds2ju, ioconf_calendar,getin
    USE phys_state_var_mod, ONLY : phys_state_var_init, phys_state_var_end, &
        clwcon, detr_therm, &
@@ -23 +24 @@
        u10m,v10m,ale_wake,ale_bl_stat
 
-  
+
    USE dimphy
    USE surface_data, only : type_ocean,ok_veget
    USE pbl_surface_mod, only : ftsoil, pbl_surface_init, &
                                  pbl_surface_final
-   USE fonte_neige_mod, only : fonte_neige_init, fonte_neige_final 
+   USE fonte_neige_mod, only : fonte_neige_init, fonte_neige_final
 
    USE infotrac ! new
@@ -66 +67 @@
 
 !!      INCLUDE "control.h"
-      INCLUDE "clesphys.h"
 !      INCLUDE "indicesol.h"
 

LMDZ6/trunk/libf/phylmd/dyn1d/scm.f90

@@ -1 +1 @@
 SUBROUTINE scm
 
-   USE ioipsl, only: ju2ymds, ymds2ju, ioconf_calendar,getin
+   USE clesphys_mod_h
+      USE ioipsl, only: ju2ymds, ymds2ju, ioconf_calendar,getin
    USE phys_state_var_mod, ONLY : phys_state_var_init, phys_state_var_end, &
        clwcon, detr_therm, &
@@ -19 +20 @@
        u10m,v10m,ale_wake,ale_bl_stat, ratqs_inter_
 
-  
+
    USE dimphy
    USE surface_data, only : type_ocean,ok_veget
    USE pbl_surface_mod, only : ftsoil, pbl_surface_init, &
                                  pbl_surface_final
-   USE fonte_neige_mod, only : fonte_neige_init, fonte_neige_final 
+   USE fonte_neige_mod, only : fonte_neige_init, fonte_neige_final
 
    USE infotrac ! new
@@ -62 +63 @@
 
 !!      INCLUDE "control.h"
-      INCLUDE "clesphys.h"
 !      INCLUDE "indicesol.h"