Changeset 4603 for LMDZ6/trunk


Ignore:
Timestamp:
Jul 3, 2023, 7:42:11 PM (16 months ago)
Author:
fhourdin
Message:

Retour partiel include -> #include en 1D

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

Legend:

Unmodified
Added
Removed

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

    r4593 r4603  
    1       INCLUDE "conf_gcm.F90"
     1#include "conf_gcm.F90"
    22
    33!
    … …  
    2222!   --------------
    2323
    24       INCLUDE "compar1d.h"
    25       INCLUDE "flux_arp.h"
    26       INCLUDE "tsoilnudge.h"
    27       INCLUDE "fcg_gcssold.h"
    28       INCLUDE "fcg_racmo.h"
     24#include "compar1d.h"
     25#include "flux_arp.h"
     26#include "tsoilnudge.h"
     27#include "fcg_gcssold.h"
     28#include "fcg_racmo.h"
    2929!
    3030!
    … …  
    681681!   -------------
    682682      include "dimensions.h"
    683 !!      INCLUDE "control.h"
     683!!#include "control.h"
    684684      include "netcdf.inc"
    685685
    … …  
    828828!   -------------
    829829      include "dimensions.h"
    830 !!      INCLUDE "control.h"
     830!!#include "control.h"
    831831      include "netcdf.inc"
    832832
    … …  
    13541354!---------------------------------------------------------------------- 
    13551355        implicit none
    1356         INCLUDE "YOMCST.h"
     1356#include "YOMCST.h"
    13571357!        argument
    13581358        integer llm
    … …  
    14281428!---------------------------------------------------------------------- 
    14291429        implicit none
    1430         INCLUDE "YOMCST.h"
     1430#include "YOMCST.h"
    14311431!        argument
    14321432        integer llm,nqtot
    … …  
    17491749       implicit none
    17501750 
    1751        INCLUDE "YOMCST.h"
    1752        INCLUDE "dimensions.h"
     1751#include "YOMCST.h"
     1752#include "dimensions.h"
    17531753
    17541754!-------------------------------------------------------------------------

  • LMDZ6/trunk/libf/phylmd/dyn1d/lmdz1d.F90

    r4593 r4603  
    33!
    44!#ifdef CPP_1D
    5 !include "../dyn3d/mod_const_mpi.F90"
    6 !include "../dyn3d_common/control_mod.F90"
    7 !include "../dyn3d_common/infotrac.F90"
    8 !include "../dyn3d_common/disvert.F90"
     5!#include "../dyn3d/mod_const_mpi.F90"
     6!#include "../dyn3d_common/control_mod.F90"
     7!#include "../dyn3d_common/infotrac.F90"
     8!#include "../dyn3d_common/disvert.F90"
    99
    1010
    … …  
    2626
    2727
    28    INCLUDE "1DUTILS.h"
    29    INCLUDE "1Dconv.h"
     28#include "1DUTILS.h"
     29#include "1Dconv.h"
    3030
    3131!#endif
Note: See TracChangeset for help on using the changeset viewer.