Ignore:
Timestamp:
Oct 30, 2024, 2:54:51 PM (3 months ago)
Author:
abarral
Message:

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

Location:
LMDZ6/trunk/libf/phylmd/dyn1d
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/dyn1d/1DUTILS.h

    r5285 r5301  
    1111
    1212      USE print_control_mod, ONLY: lunout
     13      USE tsoilnudge_mod_h
     14      USE fcg_gcssold_mod_h
     15      USE flux_arp_mod_h
    1316      IMPLICIT NONE
    1417!-----------------------------------------------------------------------
    … …  
    1922
    2023#include "compar1d.h"
    21 #include "flux_arp.h"
    22 #include "tsoilnudge.h"
    23 #include "fcg_gcssold.h"
    2424#include "fcg_racmo.h"
    2525!

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

    r5296 r5301  
    55      SUBROUTINE old_lmdz1d
    66
    7 USE compbl_mod_h
     7USE flux_arp_mod_h
     8      USE compbl_mod_h
    89         USE clesphys_mod_h
    910      USE ioipsl, only: ju2ymds, ymds2ju, ioconf_calendar,getin
    … …  
    5253   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    5354   USE dimsoil_mod_h, ONLY: nsoilmx
    54 USE yomcst_mod_h
     55  USE yomcst_mod_h
     56  USE tsoilnudge_mod_h
     57  USE fcg_gcssold_mod_h
    5558implicit none
    5659
    57 
    58 !!      INCLUDE "control.h"
    59 !      INCLUDE "indicesol.h"
    60 
    6160      INCLUDE "compar1d.h"
    62       INCLUDE "flux_arp.h"
    6361      INCLUDE "date_cas.h"
    64       INCLUDE "tsoilnudge.h"
    65       INCLUDE "fcg_gcssold.h"
    6662!!!      INCLUDE "fbforcing.h"
    6763

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

    r5296 r5301  
    11SUBROUTINE scm
    22
    3 USE compbl_mod_h
     3USE flux_arp_mod_h
     4      USE compbl_mod_h
    45         USE clesphys_mod_h
    56      USE ioipsl, only: ju2ymds, ymds2ju, ioconf_calendar,getin
    … …  
    4849   USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    4950   USE dimsoil_mod_h, ONLY: nsoilmx
    50 USE yomcst_mod_h
     51  USE yomcst_mod_h
     52  USE tsoilnudge_mod_h
     53  USE fcg_gcssold_mod_h
    5154implicit none
    52 
    53 
    54 !!      INCLUDE "control.h"
    55 !      INCLUDE "indicesol.h"
    56 
    5755      INCLUDE "compar1d.h"
    58       INCLUDE "flux_arp.h"
    5956      INCLUDE "date_cas.h"
    60       INCLUDE "tsoilnudge.h"
    61       INCLUDE "fcg_gcssold.h"
    6257
    6358!=====================================================================
Note: See TracChangeset for help on using the changeset viewer.