Changeset 5301 for LMDZ6/trunk/libf/phylmd/dyn1d/old_lmdz1d.f90

Timestamp:

Oct 30, 2024, 2:54:51 PM (42 hours ago)

Author:

abarral

Message:

Turn tsoilnudge.h fcg_gcssold.h flux_arp.h into module

File:

• LMDZ6/trunk/libf/phylmd/dyn1d/old_lmdz1d.f90 (modified) (2 diffs)

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

@@ -5 +5 @@
       SUBROUTINE old_lmdz1d
 
-USE compbl_mod_h
+USE flux_arp_mod_h
+      USE compbl_mod_h
          USE clesphys_mod_h
       USE ioipsl, only: ju2ymds, ymds2ju, ioconf_calendar,getin
@@ -52 +53 @@
    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    USE dimsoil_mod_h, ONLY: nsoilmx
-USE yomcst_mod_h
+  USE yomcst_mod_h
+  USE tsoilnudge_mod_h
+  USE fcg_gcssold_mod_h
 implicit none
 
-
-!!      INCLUDE "control.h"
-!      INCLUDE "indicesol.h"
-
       INCLUDE "compar1d.h"
-      INCLUDE "flux_arp.h"
       INCLUDE "date_cas.h"
-      INCLUDE "tsoilnudge.h"
-      INCLUDE "fcg_gcssold.h"
 !!!      INCLUDE "fbforcing.h"