Changeset 4593


Ignore:
Timestamp:
Jun 29, 2023, 3:55:54 PM (19 months ago)
Author:
yann meurdesoif
Message:

Replace #include (c preprocessor) by INCLUDE (fortran keyword)

in phylmd (except rrtm and ecrad) filtrez, dy3dmem and dyn3dcommon

Other directories will follow
YM

Location:
LMDZ6/trunk/libf
Files:
138 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3d_common/advn.F

    r2603 r4593  
    146146      IMPLICIT NONE
    147147c
    148 #include "dimensions.h"
    149 #include "paramet.h"
    150 #include "iniprint.h"
     148      INCLUDE "dimensions.h"
     149      INCLUDE "paramet.h"
     150      INCLUDE "iniprint.h"
    151151c
    152152c
    … …  
    263263      IMPLICIT NONE
    264264c
    265 #include "dimensions.h"
    266 #include "paramet.h"
    267 #include "iniprint.h"
     265      INCLUDE "dimensions.h"
     266      INCLUDE "paramet.h"
     267      INCLUDE "iniprint.h"
    268268c
    269269c
    … …  
    359359      IMPLICIT NONE
    360360c
    361 #include "dimensions.h"
    362 #include "paramet.h"
    363 #include "iniprint.h"
     361      INCLUDE "dimensions.h"
     362      INCLUDE "paramet.h"
     363      INCLUDE "iniprint.h"
    364364c
    365365c
    … …  
    746746      IMPLICIT NONE
    747747c
    748 #include "dimensions.h"
    749 #include "paramet.h"
    750 #include "comgeom.h"
    751 #include "iniprint.h"
     748      INCLUDE "dimensions.h"
     749      INCLUDE "paramet.h"
     750      INCLUDE "comgeom.h"
     751      INCLUDE "iniprint.h"
    752752c
    753753c
    … …  
    877877      IMPLICIT NONE
    878878c
    879 #include "dimensions.h"
    880 #include "paramet.h"
    881 #include "comgeom.h"
    882 #include "iniprint.h"
     879      INCLUDE "dimensions.h"
     880      INCLUDE "paramet.h"
     881      INCLUDE "comgeom.h"
     882      INCLUDE "iniprint.h"
    883883c
    884884c

  • LMDZ6/trunk/libf/dyn3d_common/advz.F

    r2600 r4593  
    2424      include "paramet.h"
    2525
    26 C    #include "traceur.h"
     26C     INCLUDE "traceur.h"
    2727
    2828C  Arguments :

  • LMDZ6/trunk/libf/dyn3d_common/convflu.F

    r1945 r4593  
    2020      IMPLICIT NONE
    2121c
    22 #include "dimensions.h"
    23 #include "paramet.h"
     22      INCLUDE "dimensions.h"
     23      INCLUDE "paramet.h"
    2424      REAL       xflu,yflu,convfl,convpn,convps
    2525      INTEGER    l,ij,nbniv
    … …  
    3030c
    3131c
    32 #include "comgeom.h"
     32      INCLUDE "comgeom.h"
    3333c
    3434      DO 5 l = 1,nbniv

  • LMDZ6/trunk/libf/dyn3d_common/diagedyn.F

    r2239 r4593  
    5757      IMPLICIT NONE
    5858C
    59 #include "dimensions.h"
    60 #include "paramet.h"
    61 #include "comgeom.h"
    62 #include "iniprint.h"
     59      INCLUDE "dimensions.h"
     60      INCLUDE "paramet.h"
     61      INCLUDE "comgeom.h"
     62      INCLUDE "iniprint.h"
    6363
    6464!#ifdef CPP_EARTH
    65 !#include "../phylmd/YOMCST.h"
    66 !#include "../phylmd/YOETHF.h"
     65!      INCLUDE "../phylmd/YOMCST.h"
     66!      INCLUDE "../phylmd/YOETHF.h"
    6767!#endif
    6868! Ehouarn: for now set these parameters to what is in Earth physics...

  • LMDZ6/trunk/libf/dyn3d_common/diverg.F

    r1945 r4593  
    2222c
    2323c   ---------------------------------------------------------------------
    24 #include "dimensions.h"
    25 #include "paramet.h"
    26 #include "comgeom.h"
     24      INCLUDE "dimensions.h"
     25      INCLUDE "paramet.h"
     26      INCLUDE "comgeom.h"
    2727c
    2828c    ..........          variables en arguments    ...................

  • LMDZ6/trunk/libf/dyn3d_common/diverg_gam.F

    r1945 r4593  
    2323c
    2424c   ---------------------------------------------------------------------
    25 #include "dimensions.h"
    26 #include "paramet.h"
    27 #include "comgeom.h"
     25      INCLUDE "dimensions.h"
     26      INCLUDE "paramet.h"
     27      INCLUDE "comgeom.h"
    2828c
    2929c    ..........          variables en arguments    ...................

  • LMDZ6/trunk/libf/dyn3d_common/divergf.F

    r1945 r4593  
    2222c
    2323c   ---------------------------------------------------------------------
    24 #include "dimensions.h"
    25 #include "paramet.h"
    26 #include "comgeom.h"
     24      INCLUDE "dimensions.h"
     25      INCLUDE "paramet.h"
     26      INCLUDE "comgeom.h"
    2727c
    2828c    ..........          variables en arguments    ...................

  • LMDZ6/trunk/libf/dyn3d_common/divergst.F

    r1945 r4593  
    1717c   -------------------------------------------------------------------
    1818c
    19 #include "dimensions.h"
    20 #include "paramet.h"
    21 #include "comgeom.h"
     19      INCLUDE "dimensions.h"
     20      INCLUDE "paramet.h"
     21      INCLUDE "comgeom.h"
    2222
    2323      INTEGER klevel

  • LMDZ6/trunk/libf/dyn3d_common/divgrad2.F

    r1945 r4593  
    1515      IMPLICIT NONE
    1616c
    17 #include "dimensions.h"
    18 #include "paramet.h"
    19 #include "comgeom2.h"
    20 #include "comdissipn.h"
     17      INCLUDE "dimensions.h"
     18      INCLUDE "paramet.h"
     19      INCLUDE "comgeom2.h"
     20      INCLUDE "comdissipn.h"
    2121
    2222c    .......    variables en arguments   .......

  • LMDZ6/trunk/libf/dyn3d_common/fxy.F

    r2598 r4593  
    2727     , rlonm025(iip1),xprimm025(iip1), rlonp025(iip1),xprimp025(iip1)
    2828
    29 #include "fxy_new.h"
     29      INCLUDE "fxy_new.h"
    3030
    3131

  • LMDZ6/trunk/libf/dyn3d_common/fxysinus.F

    r2597 r4593  
    1616c
    1717c
    18 #include "dimensions.h"
    19 #include "paramet.h"
     18      INCLUDE "dimensions.h"
     19      INCLUDE "paramet.h"
    2020
    2121       INTEGER i,j
    … …  
    2626     , rlonm025(iip1),xprimm025(iip1), rlonp025(iip1),xprimp025(iip1)
    2727
    28 #include "fxy_sin.h"
     28      INCLUDE "fxy_sin.h"
    2929
    3030

  • LMDZ6/trunk/libf/dyn3d_common/gr_u_scal.F

    r1945 r4593  
    3030c   ---------------
    3131
    32 #include "dimensions.h"
    33 #include "paramet.h"
    34 #include "comgeom.h"
     32      INCLUDE "dimensions.h"
     33      INCLUDE "paramet.h"
     34      INCLUDE "comgeom.h"
    3535
    3636c   Arguments:

  • LMDZ6/trunk/libf/dyn3d_common/gr_v_scal.F

    r1945 r4593  
    3030c   ---------------
    3131
    32 #include "dimensions.h"
    33 #include "paramet.h"
    34 #include "comgeom.h"
     32      INCLUDE "dimensions.h"
     33      INCLUDE "paramet.h"
     34      INCLUDE "comgeom.h"
    3535
    3636c   Arguments:

  • LMDZ6/trunk/libf/dyn3d_common/grad.F

    r1945 r4593  
    1515      IMPLICIT NONE
    1616c
    17 #include "dimensions.h"
    18 #include "paramet.h"
     17      INCLUDE "dimensions.h"
     18      INCLUDE "paramet.h"
    1919      INTEGER klevel
    2020      REAL  pg( ip1jmp1,klevel )

  • LMDZ6/trunk/libf/dyn3d_common/gradiv2.F

    r1945 r4593  
    1818      IMPLICIT NONE
    1919c
    20 #include "dimensions.h"
    21 #include "paramet.h"
    22 #include "comgeom.h"
    23 #include "comdissipn.h"
     20      INCLUDE "dimensions.h"
     21      INCLUDE "paramet.h"
     22      INCLUDE "comgeom.h"
     23      INCLUDE "comdissipn.h"
    2424c
    2525c     ........    variables en arguments      ........

  • LMDZ6/trunk/libf/dyn3d_common/inigrads.F

    r1945 r4593  
    1616      character(len=*),intent(in) :: titlel
    1717
    18 #include "gradsdef.h"
     18      INCLUDE "gradsdef.h"
    1919
    2020c     data unit/66,32,34,36,38,40,42,44,46,48/

  • LMDZ6/trunk/libf/dyn3d_common/laplacien.F

    r1945 r4593  
    1414      IMPLICIT NONE
    1515c
    16 #include "dimensions.h"
    17 #include "paramet.h"
    18 #include "comgeom.h"
     16      INCLUDE "dimensions.h"
     17      INCLUDE "paramet.h"
     18      INCLUDE "comgeom.h"
    1919
    2020c

  • LMDZ6/trunk/libf/dyn3d_common/laplacien_gam.F

    r1945 r4593  
    1616      IMPLICIT NONE
    1717c
    18 #include "dimensions.h"
    19 #include "paramet.h"
    20 #include "comgeom.h"
     18      INCLUDE "dimensions.h"
     19      INCLUDE "paramet.h"
     20      INCLUDE "comgeom.h"
    2121
    2222c

  • LMDZ6/trunk/libf/dyn3d_common/laplacien_rot.F

    r1945 r4593  
    1515      IMPLICIT NONE
    1616c
    17 #include "dimensions.h"
    18 #include "paramet.h"
    19 #include "comgeom.h"
     17      INCLUDE "dimensions.h"
     18      INCLUDE "paramet.h"
     19      INCLUDE "comgeom.h"
    2020
    2121c

  • LMDZ6/trunk/libf/dyn3d_common/laplacien_rotgam.F

    r1945 r4593  
    1414      IMPLICIT NONE
    1515c
    16 #include "dimensions.h"
    17 #include "paramet.h"
    18 #include "comgeom.h"
     16      INCLUDE "dimensions.h"
     17      INCLUDE "paramet.h"
     18      INCLUDE "comgeom.h"
    1919
    2020c

  • LMDZ6/trunk/libf/dyn3d_common/nxgrad.F

    r1945 r4593  
    1414      IMPLICIT NONE
    1515c
    16 #include "dimensions.h"
    17 #include "paramet.h"
    18 #include "comgeom.h"
     16      INCLUDE "dimensions.h"
     17      INCLUDE "paramet.h"
     18      INCLUDE "comgeom.h"
    1919      INTEGER klevel
    2020      REAL rot( ip1jm,klevel ),x( ip1jmp1,klevel ),y(ip1jm,klevel )

  • LMDZ6/trunk/libf/dyn3d_common/nxgrad_gam.F

    r1945 r4593  
    1414      IMPLICIT NONE
    1515c
    16 #include "dimensions.h"
    17 #include "paramet.h"
    18 #include "comgeom.h"
     16      INCLUDE "dimensions.h"
     17      INCLUDE "paramet.h"
     18      INCLUDE "comgeom.h"
    1919      INTEGER klevel
    2020      REAL rot( ip1jm,klevel ),x( ip1jmp1,klevel ),y(ip1jm,klevel )

  • LMDZ6/trunk/libf/dyn3d_common/nxgradst.F

    r1945 r4593  
    1313c       x  et y    sont des arguments de sortie pour le s-prog
    1414c
    15 #include "dimensions.h"
    16 #include "paramet.h"
    17 #include "comgeom.h"
     15      INCLUDE "dimensions.h"
     16      INCLUDE "paramet.h"
     17      INCLUDE "comgeom.h"
    1818
    1919      INTEGER klevel

  • LMDZ6/trunk/libf/dyn3d_common/nxgraro2.F

    r1945 r4593  
    1717      IMPLICIT NONE
    1818c
    19 #include "dimensions.h"
    20 #include "paramet.h"
    21 #include "comdissipn.h"
     19      INCLUDE "dimensions.h"
     20      INCLUDE "paramet.h"
     21      INCLUDE "comdissipn.h"
    2222c
    2323c    ......  variables en arguments  .......

  • LMDZ6/trunk/libf/dyn3d_common/pbar.F

    r1945 r4593  
    7575
    7676
    77 #include "dimensions.h"
    78 #include "paramet.h"
     77      INCLUDE "dimensions.h"
     78      INCLUDE "paramet.h"
    7979
    80 #include "comgeom.h"
     80      INCLUDE "comgeom.h"
    8181
    8282      REAL pext( ip1jmp1 ),  pbarx ( ip1jmp1 )

  • LMDZ6/trunk/libf/dyn3d_common/psextbar.F

    r1945 r4593  
    7575
    7676
    77 #include "dimensions.h"
    78 #include "paramet.h"
    79 #include "comgeom.h"
     77      INCLUDE "dimensions.h"
     78      INCLUDE "paramet.h"
     79      INCLUDE "comgeom.h"
    8080
    8181      REAL ps( ip1jmp1 ), psexbarxy ( ip1jm ), pext( ip1jmp1 )

  • LMDZ6/trunk/libf/dyn3d_common/rotat.F

    r1945 r4593  
    1515      IMPLICIT NONE
    1616c
    17 #include "dimensions.h"
    18 #include "paramet.h"
    19 #include "comgeom.h"
     17      INCLUDE "dimensions.h"
     18      INCLUDE "paramet.h"
     19      INCLUDE "comgeom.h"
    2020c
    2121c   .....  variables en arguments  ......

  • LMDZ6/trunk/libf/dyn3d_common/rotat_nfil.F

    r1945 r4593  
    1515      IMPLICIT NONE
    1616c
    17 #include "dimensions.h"
    18 #include "paramet.h"
    19 #include "comgeom.h"
     17      INCLUDE "dimensions.h"
     18      INCLUDE "paramet.h"
     19      INCLUDE "comgeom.h"
    2020c
    2121c   .....  variables en arguments  ......

  • LMDZ6/trunk/libf/dyn3d_common/rotatf.F

    r1954 r4593  
    1616      IMPLICIT NONE
    1717c
    18 #include "dimensions.h"
    19 #include "paramet.h"
    20 #include "comgeom.h"
     18      INCLUDE "dimensions.h"
     19      INCLUDE "paramet.h"
     20      INCLUDE "comgeom.h"
    2121c
    2222c   .....  variables en arguments  ......

  • LMDZ6/trunk/libf/dyn3d_common/rotatst.F

    r1945 r4593  
    1616c
    1717      INTEGER klevel
    18 #include "dimensions.h"
    19 #include "paramet.h"
     18      INCLUDE "dimensions.h"
     19      INCLUDE "paramet.h"
    2020
    2121      REAL rot( ip1jm,klevel )

  • LMDZ6/trunk/libf/dyn3d_common/test_period.F

    r1952 r4593  
    1313c     IMPLICIT NONE
    1414c
    15 #include "dimensions.h"
    16 #include "paramet.h"
     15      INCLUDE "dimensions.h"
     16      INCLUDE "paramet.h"
    1717c
    1818c    ......  Arguments   ......

  • LMDZ6/trunk/libf/dyn3dmem/abort_gcm.F

    r4471 r4593  
    1313#endif
    1414      USE parallel_lmdz
    15 #include "iniprint.h"
     15      INCLUDE "iniprint.h"
    1616 
    1717C

  • LMDZ6/trunk/libf/dyn3dmem/convflu_loc.F

    r1907 r4593  
    1818      IMPLICIT NONE
    1919c
    20 #include "dimensions.h"
    21 #include "paramet.h"
     20      INCLUDE "dimensions.h"
     21      INCLUDE "paramet.h"
    2222      REAL       xflu,yflu,convfl,convpn,convps
    2323      INTEGER    l,ij,nbniv
    … …  
    3030c
    3131c
    32 #include "comgeom.h"
     32      INCLUDE "comgeom.h"
    3333c
    3434     

  • LMDZ6/trunk/libf/dyn3dmem/covcont_loc.F

    r1907 r4593  
    1717c=======================================================================
    1818
    19 #include "dimensions.h"
    20 #include "paramet.h"
    21 #include "comgeom.h"
     19      INCLUDE "dimensions.h"
     20      INCLUDE "paramet.h"
     21      INCLUDE "comgeom.h"
    2222
    2323      INTEGER klevel

  • LMDZ6/trunk/libf/dyn3dmem/covnat_loc.F

    r1907 r4593  
    2020c=======================================================================
    2121
    22 #include "dimensions.h"
    23 #include "paramet.h"
    24 #include "comgeom.h"
     22      INCLUDE "dimensions.h"
     23      INCLUDE "paramet.h"
     24      INCLUDE "comgeom.h"
    2525
    2626      INTEGER klevel

  • LMDZ6/trunk/libf/dyn3dmem/diverg_gam_loc.F

    r1907 r4593  
    2121c
    2222c   ---------------------------------------------------------------------
    23 #include "dimensions.h"
    24 #include "paramet.h"
    25 #include "comgeom.h"
     23      INCLUDE "dimensions.h"
     24      INCLUDE "paramet.h"
     25      INCLUDE "comgeom.h"
    2626c
    2727c    ..........          variables en arguments    ...................

  • LMDZ6/trunk/libf/dyn3dmem/diverg_p.F

    r1907 r4593  
    2020c
    2121c   ---------------------------------------------------------------------
    22 #include "dimensions.h"
    23 #include "paramet.h"
    24 #include "comgeom.h"
     22      INCLUDE "dimensions.h"
     23      INCLUDE "paramet.h"
     24      INCLUDE "comgeom.h"
    2525c
    2626c    ..........          variables en arguments    ...................

  • LMDZ6/trunk/libf/dyn3dmem/divergf_loc.F

    r1907 r4593  
    2121c
    2222c   ---------------------------------------------------------------------
    23 #include "dimensions.h"
    24 #include "paramet.h"
    25 #include "comgeom.h"
     23      INCLUDE "dimensions.h"
     24      INCLUDE "paramet.h"
     25      INCLUDE "comgeom.h"
    2626c
    2727c    ..........          variables en arguments    ...................

  • LMDZ6/trunk/libf/dyn3dmem/divgrad2_loc.F

    r1907 r4593  
    1616      IMPLICIT NONE
    1717c
    18 #include "dimensions.h"
    19 #include "paramet.h"
    20 #include "comgeom2.h"
    21 #include "comdissipn.h"
     18      INCLUDE "dimensions.h"
     19      INCLUDE "paramet.h"
     20      INCLUDE "comgeom2.h"
     21      INCLUDE "comdissipn.h"
    2222
    2323c    .......    variables en arguments   .......

  • LMDZ6/trunk/libf/dyn3dmem/dudv1_loc.F

    r1907 r4593  
    1717c-----------------------------------------------------------------------
    1818
    19 #include "dimensions.h"
    20 #include "paramet.h"
     19      INCLUDE "dimensions.h"
     20      INCLUDE "paramet.h"
    2121
    2222      REAL vorpot( ijb_v:ije_v,llm ) ,pbaru( ijb_u:ije_u,llm ) ,

  • LMDZ6/trunk/libf/dyn3dmem/filtreg_p.F

    r4469 r4593  
    5151c
    5252c
    53 #include "dimensions.h"
    54 #include "paramet.h"
    55 #include "coefils.h"
     53      INCLUDE "dimensions.h"
     54      INCLUDE "paramet.h"
     55      INCLUDE "coefils.h"
    5656c
    5757      INTEGER ibeg,iend,nlat,nbniv,ifiltre,iter

  • LMDZ6/trunk/libf/dyn3dmem/gr_u_scal_loc.F

    r1907 r4593  
    3131c   ---------------
    3232
    33 #include "dimensions.h"
    34 #include "paramet.h"
    35 #include "comgeom.h"
     33      INCLUDE "dimensions.h"
     34      INCLUDE "paramet.h"
     35      INCLUDE "comgeom.h"
    3636
    3737c   Arguments:

  • LMDZ6/trunk/libf/dyn3dmem/gr_v_scal_loc.F

    r1907 r4593  
    3131c   ---------------
    3232
    33 #include "dimensions.h"
    34 #include "paramet.h"
    35 #include "comgeom.h"
     33      INCLUDE "dimensions.h"
     34      INCLUDE "paramet.h"
     35      INCLUDE "comgeom.h"
    3636
    3737c   Arguments:

  • LMDZ6/trunk/libf/dyn3dmem/grad_loc.F

    r1907 r4593  
    1313      IMPLICIT NONE
    1414c
    15 #include "dimensions.h"
    16 #include "paramet.h"
     15      INCLUDE "dimensions.h"
     16      INCLUDE "paramet.h"
    1717      INTEGER klevel
    1818      REAL  pg( ijb_u:ije_u,klevel )

  • LMDZ6/trunk/libf/dyn3dmem/grad_p.F

    r1907 r4593  
    1313      IMPLICIT NONE
    1414c
    15 #include "dimensions.h"
    16 #include "paramet.h"
     15      INCLUDE "dimensions.h"
     16      INCLUDE "paramet.h"
    1717      INTEGER klevel
    1818      REAL  pg( ip1jmp1,klevel )

  • LMDZ6/trunk/libf/dyn3dmem/gradiv2_loc.F

    r1907 r4593  
    2121      IMPLICIT NONE
    2222c
    23 #include "dimensions.h"
    24 #include "paramet.h"
    25 #include "comgeom.h"
    26 #include "comdissipn.h"
     23      INCLUDE "dimensions.h"
     24      INCLUDE "paramet.h"
     25      INCLUDE "comgeom.h"
     26      INCLUDE "comdissipn.h"
    2727c
    2828c     ........    variables en arguments      ........

  • LMDZ6/trunk/libf/dyn3dmem/laplacien_gam_loc.F

    r1907 r4593  
    1414      IMPLICIT NONE
    1515c
    16 #include "dimensions.h"
    17 #include "paramet.h"
    18 #include "comgeom.h"
     16      INCLUDE "dimensions.h"
     17      INCLUDE "paramet.h"
     18      INCLUDE "comgeom.h"
    1919
    2020c

  • LMDZ6/trunk/libf/dyn3dmem/laplacien_loc.F

    r1907 r4593  
    1313      IMPLICIT NONE
    1414c
    15 #include "dimensions.h"
    16 #include "paramet.h"
    17 #include "comgeom.h"
     15      INCLUDE "dimensions.h"
     16      INCLUDE "paramet.h"
     17      INCLUDE "comgeom.h"
    1818
    1919c

  • LMDZ6/trunk/libf/dyn3dmem/laplacien_rot_loc.F

    r1907 r4593  
    1414      IMPLICIT NONE
    1515c
    16 #include "dimensions.h"
    17 #include "paramet.h"
    18 #include "comgeom.h"
     16      INCLUDE "dimensions.h"
     17      INCLUDE "paramet.h"
     18      INCLUDE "comgeom.h"
    1919
    2020c

  • LMDZ6/trunk/libf/dyn3dmem/laplacien_rotgam_loc.F

    r1907 r4593  
    1212      IMPLICIT NONE
    1313c
    14 #include "dimensions.h"
    15 #include "paramet.h"
    16 #include "comgeom.h"
     14      INCLUDE "dimensions.h"
     15      INCLUDE "paramet.h"
     16      INCLUDE "comgeom.h"
    1717
    1818c

  • LMDZ6/trunk/libf/dyn3dmem/mod_filtreg_p.F

    r4469 r4593  
    5555c
    5656c
    57 #include "dimensions.h"
    58 #include "paramet.h"
    59 #include "coefils.h"
     57      INCLUDE "dimensions.h"
     58      INCLUDE "paramet.h"
     59      INCLUDE "coefils.h"
    6060c
    6161      INTEGER,INTENT(IN) :: jjb,jje,ibeg,iend,nlat,nbniv,ifiltre,iter

  • LMDZ6/trunk/libf/dyn3dmem/nxgrad_gam_loc.F

    r1907 r4593  
    1313      IMPLICIT NONE
    1414c
    15 #include "dimensions.h"
    16 #include "paramet.h"
    17 #include "comgeom.h"
     15      INCLUDE "dimensions.h"
     16      INCLUDE "paramet.h"
     17      INCLUDE "comgeom.h"
    1818      INTEGER klevel
    1919      REAL rot( ijb_v:ije_v,klevel )

  • LMDZ6/trunk/libf/dyn3dmem/nxgrad_loc.F

    r1907 r4593  
    1212      IMPLICIT NONE
    1313c
    14 #include "dimensions.h"
    15 #include "paramet.h"
    16 #include "comgeom.h"
     14      INCLUDE "dimensions.h"
     15      INCLUDE "paramet.h"
     16      INCLUDE "comgeom.h"
    1717      INTEGER klevel
    1818      REAL rot( ijb_v:ije_v,klevel ),x( ijb_u:ije_u,klevel )

  • LMDZ6/trunk/libf/dyn3dmem/nxgraro2_loc.F

    r1907 r4593  
    2020      IMPLICIT NONE
    2121c
    22 #include "dimensions.h"
    23 #include "paramet.h"
    24 #include "comdissipn.h"
     22      INCLUDE "dimensions.h"
     23      INCLUDE "paramet.h"
     24      INCLUDE "comdissipn.h"
    2525c
    2626c    ......  variables en arguments  .......

  • LMDZ6/trunk/libf/dyn3dmem/parallel_lmdz.F90

    r4469 r4593  
    9292      include 'mpif.h'
    9393#endif
    94 #include "dimensions.h"
    95 #include "paramet.h"
    96 #include "iniprint.h"
     94      INCLUDE "dimensions.h"
     95      INCLUDE "paramet.h"
     96      INCLUDE "iniprint.h"
    9797
    9898      integer :: ierr
    … …  
    456456    implicit none
    457457
    458 #include "dimensions.h"
    459 #include "paramet.h"
     458      INCLUDE "dimensions.h"
     459      INCLUDE "paramet.h"
    460460
    461461      integer, intent(in) :: ij,ll,row
    … …  
    479479    implicit none
    480480
    481 #include "dimensions.h"
    482 #include "paramet.h"
     481      INCLUDE "dimensions.h"
     482      INCLUDE "paramet.h"
    483483
    484484      integer, intent(in) :: ij,ll,row
    … …  
    520520    USE Vampir
    521521    implicit none
    522 #include "dimensions.h"
    523 #include "paramet.h"   
     522      INCLUDE "dimensions.h"
     523      INCLUDE "paramet.h"   
    524524#ifdef CPP_MPI
    525525    include 'mpif.h'
    … …  
    652652    subroutine Gather_Field(Field,ij,ll,rank)
    653653    implicit none
    654 #include "dimensions.h"
    655 #include "paramet.h"
    656 #include "iniprint.h"
     654    INCLUDE "dimensions.h"
     655    INCLUDE "paramet.h"
     656    INCLUDE "iniprint.h"
    657657#ifdef CPP_MPI
    658658    include 'mpif.h'
    … …  
    736736    subroutine AllGather_Field(Field,ij,ll)
    737737    implicit none
    738 #include "dimensions.h"
    739 #include "paramet.h"   
     738    INCLUDE "dimensions.h"
     739    INCLUDE "paramet.h"   
    740740#ifdef CPP_MPI
    741741    include 'mpif.h'
    … …  
    758758   subroutine Broadcast_Field(Field,ij,ll,rank)
    759759    implicit none
    760 #include "dimensions.h"
    761 #include "paramet.h"   
     760    INCLUDE "dimensions.h"
     761    INCLUDE "paramet.h"   
    762762#ifdef CPP_MPI
    763763    include 'mpif.h'
    … …  
    782782!  Subroutine verif_hallo(Field,ij,ll,up,down)
    783783!    implicit none
    784 !#include "dimensions.h"
    785 !#include "paramet.h"   
     784!      INCLUDE "dimensions.h"
     785!      INCLUDE "paramet.h"   
    786786!    include 'mpif.h'
    787787!   

  • LMDZ6/trunk/libf/dyn3dmem/pression_loc.F

    r1987 r4593  
    1414      IMPLICIT NONE
    1515c
    16 #include "dimensions.h"
    17 #include "paramet.h"
     16      INCLUDE "dimensions.h"
     17      INCLUDE "paramet.h"
    1818c
    1919      INTEGER,INTENT(IN) :: ngrid ! not used

  • LMDZ6/trunk/libf/dyn3dmem/rotat_nfil_loc.F

    r1907 r4593  
    1313      IMPLICIT NONE
    1414c
    15 #include "dimensions.h"
    16 #include "paramet.h"
    17 #include "comgeom.h"
     15      INCLUDE "dimensions.h"
     16      INCLUDE "paramet.h"
     17      INCLUDE "comgeom.h"
    1818c
    1919c   .....  variables en arguments  ......

  • LMDZ6/trunk/libf/dyn3dmem/rotat_p.F

    r1907 r4593  
    1313      IMPLICIT NONE
    1414c
    15 #include "dimensions.h"
    16 #include "paramet.h"
    17 #include "comgeom.h"
     15      INCLUDE "dimensions.h"
     16      INCLUDE "paramet.h"
     17      INCLUDE "comgeom.h"
    1818c
    1919c   .....  variables en arguments  ......

  • LMDZ6/trunk/libf/dyn3dmem/rotatf_loc.F

    r1907 r4593  
    1414      IMPLICIT NONE
    1515c
    16 #include "dimensions.h"
    17 #include "paramet.h"
    18 #include "comgeom.h"
     16      INCLUDE "dimensions.h"
     17      INCLUDE "paramet.h"
     18      INCLUDE "comgeom.h"
    1919c
    2020c   .....  variables en arguments  ......

  • LMDZ6/trunk/libf/dyn3dmem/times.F90

    r4469 r4593  
    2727    USE parallel_lmdz
    2828    implicit none
    29 #include "dimensions.h"
    30 #include "paramet.h"
     29    INCLUDE "dimensions.h"
     30    INCLUDE "paramet.h"
    3131   
    3232    max_size=jjm+1

  • LMDZ6/trunk/libf/dyn3dmem/top_bound_loc.F

    r2600 r4593  
    5454
    5555
    56 #include "comdissipn.h"
    57 #include "iniprint.h"
     56      INCLUDE "comdissipn.h"
     57      INCLUDE "iniprint.h"
    5858
    5959c   Arguments:

  • LMDZ6/trunk/libf/dyn3dmem/vlsplt_loc.F

    r4469 r4593  
    12071207c      SUBROUTINE minmaxq(zq,qmin,qmax,comment)
    12081208c
    1209 c#include "dimensions.h"
    1210 c#include "paramet.h"
     1209c      INCLUDE "dimensions.h"
     1210c      INCLUDE "paramet.h"
    12111211
    12121212c      CHARACTER*(*) comment

  • LMDZ6/trunk/libf/dyn3dmem/wrgrads.F

    r4469 r4593  
    1212c    titlevar   Titre
    1313
    14 #include "gradsdef.h"
     14      INCLUDE "gradsdef.h"
    1515
    1616c   arguments

  • LMDZ6/trunk/libf/filtrez/eigen.F

    r2197 r4593  
    44      SUBROUTINE eigen( e,d)
    55      IMPLICIT NONE
    6 #include "dimensions.h"
     6      INCLUDE "dimensions.h"
    77      real :: e( iim,iim ), d( iim )
    88      real :: asm( iim )

  • LMDZ6/trunk/libf/filtrez/filtreg.F

    r4440 r4593  
    4646c
    4747c
    48 #include "dimensions.h"
    49 #include "paramet.h"
    50 #include "coefils.h"
     48      INCLUDE "dimensions.h"
     49      INCLUDE "paramet.h"
     50      INCLUDE "coefils.h"
    5151
    5252      INTEGER    nlat,nbniv,ifiltre,iter

  • LMDZ6/trunk/libf/phylmd/Dust/aeropt_spl.F

    r2630 r4593  
    1212      IMPLICIT none
    1313c
    14 #include "chem.h"
    15 #include "dimensions.h"
    16 c #include "dimphy.h"
    17 #include "YOMCST.h"
     14      INCLUDE "chem.h"
     15      INCLUDE "dimensions.h"
     16cINCLUDE "dimphy.h"
     17      INCLUDE "YOMCST.h"
    1818c
    1919c Arguments:

  • LMDZ6/trunk/libf/phylmd/Dust/bcscav_spl.F

    r2630 r4593  
    99c=====================================================================
    1010c
    11 #include "dimensions.h"
    12 #include "chem.h"
    13 #include "YOMCST.h"
    14 #include "YOECUMF.h"
     11      INCLUDE "dimensions.h"
     12      INCLUDE "chem.h"
     13      INCLUDE "YOMCST.h"
     14      INCLUDE "YOECUMF.h"
    1515c
    1616      REAL pdtime, alpha_r, alpha_s, R_r, R_s

  • LMDZ6/trunk/libf/phylmd/Dust/bl_for_dms.F

    r2630 r4593  
    1717c===================================================================
    1818c
    19 #include "dimensions.h"
    20 #include "YOMCST.h"
    21 #include "YOETHF.h"
    22 #include "FCTTRE.h"
     19      INCLUDE "dimensions.h"
     20      INCLUDE "YOMCST.h"
     21      INCLUDE "YOETHF.h"
     22      INCLUDE "FCTTRE.h"
    2323c
    2424c Arguments :

  • LMDZ6/trunk/libf/phylmd/Dust/blcloud_scav.F

    r2630 r4593  
    1010      IMPLICIT NONE
    1111
    12 #include "dimensions.h"
    13 #include "chem.h"
    14 #include "YOMCST.h"
    15 #include "paramet.h"
     12      INCLUDE "dimensions.h"
     13      INCLUDE "chem.h"
     14      INCLUDE "YOMCST.h"
     15      INCLUDE "paramet.h"
    1616
    1717c============================= INPUT ===================================

  • LMDZ6/trunk/libf/phylmd/Dust/blcloud_scav_lsc.F

    r2630 r4593  
    1010      IMPLICIT NONE
    1111
    12 #include "dimensions.h"
    13 #include "chem.h"
    14 #include "YOMCST.h"
    15 #include "paramet.h"
     12      INCLUDE "dimensions.h"
     13      INCLUDE "chem.h"
     14      INCLUDE "YOMCST.h"
     15      INCLUDE "paramet.h"
    1616
    1717c============================= INPUT ===================================

  • LMDZ6/trunk/libf/phylmd/Dust/checkmass.F90

    r2630 r4593  
    44  IMPLICIT NONE
    55
    6 #include "YOMCST.h"
     6  INCLUDE "YOMCST.h"
    77
    88! Entrees

  • LMDZ6/trunk/libf/phylmd/Dust/cltrac_spl.F

    r2630 r4593  
    2626c flux_tr--output-R- flux de tr
    2727c======================================================================
    28 #include "dimensions.h"
     28      INCLUDE "dimensions.h"
    2929      REAL dtime
    3030      REAL coef(klon,klev)
    … …  
    3636c      REAL flux_tr(klon,klev)
    3737c======================================================================
    38 #include "YOMCST.h"
     38      INCLUDE "YOMCST.h"
    3939c======================================================================
    4040      INTEGER i, k

  • LMDZ6/trunk/libf/phylmd/Dust/cm3_to_kg.F

    r2630 r4593  
    77      IMPLICIT NONE
    88c
    9 #include "dimensions.h"
    10 #include "YOMCST.h"
     9      INCLUDE "dimensions.h"
     10      INCLUDE "YOMCST.h"
    1111c     
    1212      REAL t_seri(klon,klev), pplay(klon,klev)

  • LMDZ6/trunk/libf/phylmd/Dust/coarsemission.F

    r2630 r4593  
    3333      IMPLICIT NONE
    3434
    35 #include "dimensions.h"
    36 #include "chem.h"
    37 #include "chem_spla.h"
    38 #include "YOMCST.h"
    39 #include "paramet.h"
     35      INCLUDE "dimensions.h"
     36      INCLUDE "chem.h"
     37      INCLUDE "chem_spla.h"
     38      INCLUDE "YOMCST.h"
     39      INCLUDE "paramet.h"
    4040     
    4141c============================== INPUT ==================================

  • LMDZ6/trunk/libf/phylmd/Dust/condsurfc.F

    r2630 r4593  
    99! --------------------------------------------------------
    1010!
    11 #include "dimensions.h"
    12 #include "netcdf.inc"
     11      INCLUDE "dimensions.h"
     12      INCLUDE "netcdf.inc"
     13     
    1314      REAL lmt_bcff(klon), lmt_bcbb(klon),lmt_bc_penner(klon)
    1415      REAL lmt_omff(klon), lmt_ombb(klon)

  • LMDZ6/trunk/libf/phylmd/Dust/condsurfc_new.F

    r2630 r4593  
    1111c --------------------------------------------------------
    1212c
    13 #include "dimensions.h"
    14 #include "netcdf.inc"
     13      INCLUDE "dimensions.h"
     14      INCLUDE "netcdf.inc"
     15     
    1516      REAL lmt_bcff(klon), lmt_bcnff(klon), lmt_bcba(klon)
    1617      REAL lmt_omff(klon), lmt_omnff(klon), lmt_ombb(klon)

  • LMDZ6/trunk/libf/phylmd/Dust/condsurfs.F

    r2630 r4593  
    99c --------------------------------------------------------
    1010c
    11 #include "dimensions.h"
    12 #include "netcdf.inc"
     11      INCLUDE "dimensions.h"
     12      INCLUDE "netcdf.inc"
    1313c
    1414      REAL lmt_so2h(klon), lmt_so2b(klon), lmt_so2bb(klon)

  • LMDZ6/trunk/libf/phylmd/Dust/condsurfs_new.F

    r2630 r4593  
    1414c --------------------------------------------------------
    1515c
    16 #include "dimensions.h"
    17 #include "netcdf.inc"
     16      INCLUDE "dimensions.h"
     17      INCLUDE "netcdf.inc"
    1818c
    1919      REAL lmt_so2b(klon), lmt_so2h(klon), lmt_so2nff(klon)

  • LMDZ6/trunk/libf/phylmd/Dust/deposition.F

    r2630 r4593  
    1212      IMPLICIT NONE
    1313
    14 #include "dimensions.h"
    15 #include "chem.h"
    16 #include "YOMCST.h"
    17 #include "paramet.h"
     14      INCLUDE "dimensions.h"
     15      INCLUDE "chem.h"
     16      INCLUDE "YOMCST.h"
     17      INCLUDE "paramet.h"
    1818
    1919c----------------------------- INPUT -----------------------------------

  • LMDZ6/trunk/libf/phylmd/Dust/finemission.F

    r2630 r4593  
    1717      IMPLICIT NONE
    1818
    19 #include "dimensions.h"
    20 #include "chem.h"
    21 #include "YOMCST.h"
    22 #include "paramet.h"
     19      INCLUDE "dimensions.h"
     20      INCLUDE "chem.h"
     21      INCLUDE "YOMCST.h"
     22      INCLUDE "paramet.h"
    2323
    2424      INTEGER i, k, kminbc, kmaxbc

  • LMDZ6/trunk/libf/phylmd/Dust/gastoparticle.F

    r2630 r4593  
    1010      IMPLICIT NONE
    1111c
    12 #include "dimensions.h"
    13 #include "chem.h"
    14 #include "chem_spla.h"
    15 #include "YOMCST.h"
    16 #include "YOECUMF.h"
     12      INCLUDE "dimensions.h"
     13      INCLUDE "chem.h"
     14      INCLUDE "chem_spla.h"
     15      INCLUDE "YOMCST.h"
     16      INCLUDE "YOECUMF.h"
    1717c
    1818      REAL pdtphys

  • LMDZ6/trunk/libf/phylmd/Dust/incloud_scav.F

    r2630 r4593  
    1111      IMPLICIT NONE
    1212
    13 #include "dimensions.h"
    14 #include "chem.h"
    15 #include "YOMCST.h"
    16 #include "paramet.h"
     13      INCLUDE "dimensions.h"
     14      INCLUDE "chem.h"
     15      INCLUDE "YOMCST.h"
     16      INCLUDE "paramet.h"
    1717
    1818c============================= INPUT ===================================

  • LMDZ6/trunk/libf/phylmd/Dust/incloud_scav_lsc.F

    r2630 r4593  
    1111      IMPLICIT NONE
    1212
    13 #include "dimensions.h"
    14 #include "chem.h"
    15 #include "YOMCST.h"
    16 #include "paramet.h"
     13      INCLUDE "dimensions.h"
     14      INCLUDE "chem.h"
     15      INCLUDE "YOMCST.h"
     16      INCLUDE "paramet.h"
    1717
    1818c============================= INPUT ===================================

  • LMDZ6/trunk/libf/phylmd/Dust/inscav_spl.F

    r2630 r4593  
    1010c=====================================================================
    1111c
    12 #include "dimensions.h"
    13 #include "chem.h"
    14 #include "YOMCST.h"
    15 #include "YOECUMF.h"
     12      INCLUDE "dimensions.h"
     13      INCLUDE "chem.h"
     14      INCLUDE "YOMCST.h"
     15      INCLUDE "YOECUMF.h"
    1616c
    1717      INTEGER it

  • LMDZ6/trunk/libf/phylmd/Dust/kg_to_cm3.F

    r2630 r4593  
    55      IMPLICIT NONE
    66c
    7 #include "dimensions.h"
    8 #include "YOMCST.h"
     7      INCLUDE "dimensions.h"
     8      INCLUDE "YOMCST.h"
    99c     
    1010      REAL t_seri(klon,klev), pplay(klon,klev)

  • LMDZ6/trunk/libf/phylmd/Dust/minmaxqfi2.F

    r2630 r4593  
    33      USE dimphy
    44      USE infotrac
    5 #include "dimensions.h"
     5      INCLUDE "dimensions.h"
    66
    77!      character*20 comment

  • LMDZ6/trunk/libf/phylmd/Dust/minmaxsource.F

    r2630 r4593  
    44      USE infotrac
    55
    6 #include "dimensions.h"
     6      INCLUDE "dimensions.h"
    77
    88!      character*20 comment

  • LMDZ6/trunk/libf/phylmd/Dust/neutral.F

    r2630 r4593  
    2828c
    2929      USE dimphy
    30 #include "dimensions.h"
     30      INCLUDE "dimensions.h"
    3131c
    3232        real u10_mps(klon),ustar_mps(klon),obklen_m(klon)

  • LMDZ6/trunk/libf/phylmd/Dust/nightingale.F

    r2630 r4593  
    77      IMPLICIT NONE
    88c
    9 #include "dimensions.h"
    10 #include "YOMCST.h"
     9      INCLUDE "dimensions.h"
     10      INCLUDE "YOMCST.h"
    1111c
    1212      REAL u(klon,klev), v(klon,klev)

  • LMDZ6/trunk/libf/phylmd/Dust/phys_output_write_spl_mod.F90

    r4389 r4593  
    489489!!! Champs 2D !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    490490! JE20141223 <<
    491 #include "spla_output_write.h"
     491       INCLUDE "spla_output_write.h"
    492492! JE20141223 >>
    493493

  • LMDZ6/trunk/libf/phylmd/Dust/phytracr_spl_mod.F90

    r4160 r4593  
    823823!!   et c'est encore different avec le parser de DC ?
    824824!======================================================================
    825 #include "dimensions.h"
    826 #include "chem.h"
    827 #include "chem_spla.h"
    828 #include "YOMCST.h"
    829 #include "YOETHF.h"
    830 #include "paramet.h"
    831 #include "alpale.h"
     825      INCLUDE "dimensions.h"
     826      INCLUDE "chem.h"
     827      INCLUDE "chem_spla.h"
     828      INCLUDE "YOMCST.h"
     829      INCLUDE "YOETHF.h"
     830      INCLUDE "paramet.h"
     831      INCLUDE "alpale.h"
    832832
    833833!======================================================================

  • LMDZ6/trunk/libf/phylmd/Dust/precuremission.F

    r2630 r4593  
    2222      IMPLICIT NONE
    2323
    24 #include "dimensions.h"
    25 #include "chem.h"
    26 #include "chem_spla.h"
    27 #include "YOMCST.h"
    28 #include "paramet.h"
     24      INCLUDE "dimensions.h"
     25      INCLUDE "chem.h"
     26      INCLUDE "chem_spla.h"
     27      INCLUDE "YOMCST.h"
     28      INCLUDE "paramet.h"
    2929
    3030c============================= INPUT ===================================

  • LMDZ6/trunk/libf/phylmd/Dust/read_dust.F

    r3786 r4593  
    55      IMPLICIT NONE
    66c
    7 #include "dimensions.h"
    8 #include "paramet.h"
    9 #include "netcdf.inc"
     7      INCLUDE "dimensions.h"
     8      INCLUDE "paramet.h"
     9      INCLUDE "netcdf.inc"
    1010c
    1111      INTEGER step, nbjour

  • LMDZ6/trunk/libf/phylmd/Dust/read_newemissions.F

    r3786 r4593  
    2626
    2727
    28 #include "dimensions.h"
     28      INCLUDE "dimensions.h"
    2929c      INCLUDE 'dimphy.h'     
    3030      INCLUDE 'paramet.h'     

  • LMDZ6/trunk/libf/phylmd/Dust/read_surface.F90

    r2630 r4593  
    1313       IMPLICIT NONE
    1414
    15        include "netcdf.inc"
    16 #include "dimensions.h"
    17 #include "paramet.h"
     15       INCLUDE "netcdf.inc"
     16       INCLUDE "dimensions.h"
     17       INCLUDE "paramet.h"
    1818
    1919       character*10 name

  • LMDZ6/trunk/libf/phylmd/Dust/read_vent.F

    r3806 r4593  
    55!      USE write_field_phy
    66      IMPLICIT NONE
    7 #include "dimensions.h"
    8 c #include "dimphy.h"
    9 #include "paramet.h"
    10 #include "netcdf.inc"
     7      INCLUDE "dimensions.h"
     8c       INCLUDE "dimphy.h"
     9      INCLUDE "paramet.h"
     10      INCLUDE "netcdf.inc"
    1111c
    1212      INTEGER step, nbjour

  • LMDZ6/trunk/libf/phylmd/Dust/seasalt.F

    r2630 r4593  
    77      IMPLICIT NONE
    88c
    9 #include "dimensions.h"
    10 #include "chem.h"
    11 #include "chem_spla.h"
    12 #include "YOMCST.h"
    13 #include "YOECUMF.h"
     9      INCLUDE "dimensions.h"
     10      INCLUDE "chem.h"
     11      INCLUDE "chem_spla.h"
     12      INCLUDE "YOMCST.h"
     13      INCLUDE "YOECUMF.h"
    1414c
    1515      INTEGER i, bin                 !local variables

  • LMDZ6/trunk/libf/phylmd/Dust/sediment_mod.F

    r2630 r4593  
    1212      IMPLICIT NONE
    1313c
    14 #include "dimensions.h"
    15 #include "chem.h"
    16 c #include "dimphy.h"
    17 #include "YOMCST.h"
    18 #include "YOECUMF.h"
     14      INCLUDE "dimensions.h"
     15      INCLUDE "chem.h"
     16c       INCLUDE "dimphy.h"
     17      INCLUDE "YOMCST.h"
     18      INCLUDE "YOECUMF.h"
    1919c
    2020       REAL RHcl(klon,klev)     ! humidite relative ciel clair

  • LMDZ6/trunk/libf/phylmd/Dust/tiedqneg.F

    r2630 r4593  
    1515c======================================================================
    1616c
    17 #include "dimensions.h"
    18 c #include "dimphy.h"
     17      INCLUDE "dimensions.h"
     18c       INCLUDE "dimphy.h"
    1919      REAL pres_h(klon,klev+1)
    2020      REAL q(klon,klev)

  • LMDZ6/trunk/libf/phylmd/Dust/trconvect.F

    r2630 r4593  
    1010      IMPLICIT NONE
    1111
    12 #include "dimensions.h"
    13 #include "chem.h"
    14 #include "YOMCST.h"
    15 #include "paramet.h"
     12      INCLUDE "dimensions.h"
     13      INCLUDE "chem.h"
     14      INCLUDE "YOMCST.h"
     15      INCLUDE "paramet.h"
    1616
    1717c============================= INPUT ===================================

  • LMDZ6/trunk/libf/phylmd/calbeta.F90

    r3780 r4593  
    1010  IMPLICIT none
    1111
    12 #include "flux_arp.h"
     12  INCLUDE "flux_arp.h"
    1313
    1414!======================================================================

  • LMDZ6/trunk/libf/phylmd/cloudth_mod.F90

    r4535 r4593  
    2424
    2525
    26 #include "YOMCST.h"
    27 #include "YOETHF.h"
    28 #include "FCTTRE.h"
     26      INCLUDE "YOMCST.h"
     27      INCLUDE "YOETHF.h"
     28      INCLUDE "FCTTRE.h"
    2929
    3030      INTEGER itap,ind1,ind2
    … …  
    268268      IMPLICIT NONE
    269269
    270 #include "YOMCST.h"
    271 #include "YOETHF.h"
    272 #include "FCTTRE.h"
     270      INCLUDE "YOMCST.h"
     271      INCLUDE "YOETHF.h"
     272      INCLUDE "FCTTRE.h"
    273273     
    274274      INTEGER itap,ind1,ind2
    … …  
    607607
    608608
    609 #include "YOMCST.h"
    610 #include "YOETHF.h"
    611 #include "FCTTRE.h"
     609      INCLUDE "YOMCST.h"
     610      INCLUDE "YOETHF.h"
     611      INCLUDE "FCTTRE.h"
    612612
    613613      INTEGER itap,ind1,ind2
    … …  
    829829      IMPLICIT NONE
    830830
    831 #include "YOMCST.h"
    832 #include "YOETHF.h"
    833 #include "FCTTRE.h"
     831      INCLUDE "YOMCST.h"
     832      INCLUDE "YOETHF.h"
     833      INCLUDE "FCTTRE.h"
    834834     
    835835      INTEGER itap,ind1,ind2
    … …  
    12911291      IMPLICIT NONE
    12921292
    1293 #include "YOMCST.h"
    1294 #include "YOETHF.h"
    1295 #include "FCTTRE.h"
     1293      INCLUDE "YOMCST.h"
     1294      INCLUDE "YOETHF.h"
     1295      INCLUDE "FCTTRE.h"
    12961296
    12971297
    … …  
    15581558      IMPLICIT NONE
    15591559
    1560 #include "YOMCST.h"
    1561 #include "YOETHF.h"
    1562 #include "FCTTRE.h"
     1560      INCLUDE "YOMCST.h"
     1561      INCLUDE "YOETHF.h"
     1562      INCLUDE "FCTTRE.h"
    15631563     
    15641564

  • LMDZ6/trunk/libf/phylmd/cosp/mod_cosp.F90

    r3233 r4593  
    2323! OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
    2424
    25 #include "cosp_defs.h"
     25INCLUDE "cosp_defs.h"
    2626MODULE MOD_COSP
    2727  USE MOD_COSP_TYPES

  • LMDZ6/trunk/libf/phylmd/cosp/mod_cosp_constants.F90

    r3286 r4593  
    3333!
    3434
    35 #include "cosp_defs.h"
     35INCLUDE "cosp_defs.h"
    3636MODULE MOD_COSP_CONSTANTS
    3737    IMPLICIT NONE

  • LMDZ6/trunk/libf/phylmd/cosp/mod_cosp_simulator.F90

    r3233 r4593  
    3131!
    3232
    33 #include "cosp_defs.h"
     33INCLUDE "cosp_defs.h"
    3434MODULE MOD_COSP_SIMULATOR
    3535  USE MOD_COSP_CONSTANTS, ONLY: I_RADAR, I_LIDAR, I_ISCCP, I_MISR, I_MODIS, &

  • LMDZ6/trunk/libf/phylmd/cosp/mod_cosp_stats.F90

    r3233 r4593  
    3636!
    3737!
    38 #include "cosp_defs.h"
     38INCLUDE "cosp_defs.h"
    3939MODULE MOD_COSP_STATS
    4040  USE MOD_COSP_CONSTANTS

  • LMDZ6/trunk/libf/phylmd/cosp/phys_cosp.F90

    r3435 r4593  
    7373
    7474!! AI rajouter
    75 #include "cosp_defs.h"
     75  INCLUDE "cosp_defs.h"
    7676  USE MOD_COSP_CONSTANTS
    7777  USE MOD_COSP_TYPES

  • LMDZ6/trunk/libf/phylmd/cosp2/cosp_interface_v1p4.F90

    r3358 r4593  
    3030! May 2015 - D. Swales - Original version
    3131! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    32 #include "cosp_defs.h"
     32INCLUDE "cosp_defs.h"
    3333MODULE MOD_COSP_INTERFACE_v1p4
    3434  use COSP_KINDS,          only: wp,dp

  • LMDZ6/trunk/libf/phylmd/cosp2/phys_cosp2.F90

    r3373 r4593  
    7373
    7474!! AI rajouter
    75 !#include "cosp_defs.h"
     75!INCLUDE "cosp_defs.h"
    7676!  USE MOD_COSP_CONSTANTS
    7777!  USE MOD_COSP_TYPES

  • LMDZ6/trunk/libf/phylmd/cv30_routines.F90

    r4461 r4593  
    32813281        ! Toutes les autres variables fn de ep sont calculées plus bas.
    32823282
    3283 #include "cvthermo.h"
    3284 #include "cv30param.h"
    3285 #include "conema3.h"
     3283        INCLUDE "cvthermo.h"
     3284        INCLUDE "cv30param.h"
     3285        INCLUDE "conema3.h"
    32863286
    32873287! inputs:

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

    r4292 r4593  
    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/1D_decl_cases.h

    r4104 r4593  
    1 #include "netcdf.inc"
     1        INCLUDE "netcdf.inc"
    22
    33! Declarations specifiques au cas Toga

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

    r2310 r4593  
    1313!cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
    1414
    15 #include "YOMCST.h"
     15      INCLUDE "YOMCST.h"
    1616
    1717      INTEGER klev
    … …  
    461461      implicit none
    462462
    463 #include "dimensions.h"
    464 !cccc#include "dimphy.h"
     463      INCLUDE "dimensions.h"
     464!cccc      INCLUDE "dimphy.h"
    465465
    466466      integer k

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

    r3541 r4593  
    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

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

    r2373 r4593  
    5959      implicit none
    6060
    61 #include "netcdf.inc"
     61      INCLUDE "netcdf.inc"
    6262
    6363      INTEGER nid,rid,ierr
    … …  
    180180!program reading forcings of the AMMA case study
    181181      implicit none
    182 #include "netcdf.inc"
     182      INCLUDE "netcdf.inc"
    183183
    184184      integer ntime,nlevel
    … …  
    407407!---------------------------------------------------------------------------------------
    408408
    409 #include "compar1d.h"
     409        INCLUDE "compar1d.h"
    410410
    411411! inputs:

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

    r2373 r4593  
    9090      implicit none
    9191
    92 #include "netcdf.inc"
     92      INCLUDE "netcdf.inc"
    9393
    9494      INTEGER nid,rid,ierr
    … …  
    267267!program reading forcing of the case study
    268268      implicit none
    269 #include "netcdf.inc"
     269      INCLUDE "netcdf.inc"
    270270
    271271      integer ntime,nlevel
    … …  
    994994!---------------------------------------------------------------------------------------
    995995
    996 #include "compar1d.h"
    997 #include "date_cas.h"
     996        INCLUDE "compar1d.h"
     997        INCLUDE "date_cas.h"
    998998
    999999! inputs:

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

    r4558 r4593  
    8181    implicit none
    8282
    83 #include "netcdf.inc"
     83    INCLUDE "netcdf.inc"
    8484
    8585    INTEGER nid,rid,ierr
    … …  
    192192    implicit none
    193193
    194 #include "netcdf.inc"
     194    INCLUDE "netcdf.inc"
    195195
    196196    INTEGER nid,rid,ierr
    … …  
    320320    implicit none
    321321
    322 #include "netcdf.inc"
    323 #include "date_cas.h"
     322    INCLUDE "netcdf.inc"
     323    INCLUDE "date_cas.h"
    324324
    325325    INTEGER nid,rid,ierr
    … …  
    543543  use netcdf, only: nf90_get_var
    544544  implicit none
    545 #include "netcdf.inc"
     545  INCLUDE "netcdf.inc"
    546546
    547547  integer ntime,nlevel
    … …  
    660660  use netcdf, only: nf90_get_var
    661661  implicit none
    662 #include "netcdf.inc"
     662  INCLUDE "netcdf.inc"
    663663
    664664  integer ntime,nlevel
    … …  
    831831  use netcdf, only: nf90_get_var
    832832  implicit none
    833 #include "netcdf.inc"
     833  INCLUDE "netcdf.inc"
    834834
    835835  integer ntime,nlevel,k,t
    … …  
    10611061  !---------------------------------------------------------------------------------------
    10621062
    1063 #include "compar1d.h"
    1064 #include "date_cas.h"
     1063  INCLUDE "compar1d.h"
     1064  INCLUDE "date_cas.h"
    10651065
    10661066  ! inputs:
    … …  
    12701270  !---------------------------------------------------------------------------------------
    12711271
    1272 #include "compar1d.h"
    1273 #include "date_cas.h"
     1272  INCLUDE "compar1d.h"
     1273  INCLUDE "date_cas.h"
    12741274
    12751275  ! inputs:

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

    r4297 r4593  
    9090    implicit none
    9191
    92 #include "netcdf.inc"
    93 #include "date_cas.h"
     92    INCLUDE "netcdf.inc"
     93    INCLUDE "date_cas.h"
    9494
    9595    INTEGER nid,rid,ierr
    … …  
    331331    use netcdf, only: nf90_get_var
    332332    implicit none
    333 #include "netcdf.inc"
    334 #include "compar1d.h"
     333    INCLUDE "netcdf.inc"
     334    INCLUDE "compar1d.h"
    335335
    336336    integer ntime,nlevel,k,t
    … …  
    671671    !---------------------------------------------------------------------------------------
    672672
    673 #include "compar1d.h"
    674 #include "date_cas.h"
     673    INCLUDE "compar1d.h"
     674    INCLUDE "date_cas.h"
    675675
    676676    ! inputs:
    … …  
    934934    implicit none
    935935
    936 #include "YOMCST.h"
    937 #include "dimensions.h"
     936    INCLUDE "YOMCST.h"
     937    INCLUDE "dimensions.h"
    938938
    939939    !-------------------------------------------------------------------------

  • LMDZ6/trunk/libf/phylmd/dyn1d/old_1DUTILS_read_interp.h

    r4274 r4593  
    150150      implicit none
    151151
    152 #include "netcdf.inc"
     152      INCLUDE "netcdf.inc"
    153153
    154154      integer ntime,nlevel
    … …  
    495495
    496496         implicit none
    497 #include "netcdf.inc"
     497         INCLUDE "netcdf.inc"
    498498         integer nid,ttm,llm
    499499         real*8 time(ttm)
    … …  
    545545       implicit none
    546546
    547 #include "dimensions.h"
     547      INCLUDE "dimensions.h"
    548548
    549549!-------------------------------------------------------------------------
    … …  
    659659       implicit none
    660660
    661 #include "dimensions.h"
     661      INCLUDE "dimensions.h"
    662662
    663663!-------------------------------------------------------------------------
    … …  
    781781! Read RICO forcing data
    782782!-------------------------------------------------------------------------
    783 #include "dimensions.h"
     783      INCLUDE "dimensions.h"
    784784
    785785
    … …  
    10571057       implicit none
    10581058 
    1059 #include "dimensions.h"
     1059      INCLUDE "dimensions.h"
    10601060
    10611061!-------------------------------------------------------------------------
    … …  
    11791179       implicit none
    11801180 
    1181 #include "dimensions.h"
     1181       INCLUDE "dimensions.h"
    11821182
    11831183!-------------------------------------------------------------------------
    … …  
    13381338       implicit none
    13391339 
    1340 #include "dimensions.h"
     1340       INCLUDE "dimensions.h"
    13411341
    13421342!-------------------------------------------------------------------------
    … …  
    15611561!---------------------------------------------------------------------------------------
    15621562
    1563 #include "compar1d.h"
     1563        INCLUDE "compar1d.h"
    15641564
    15651565! inputs:
    … …  
    17031703!---------------------------------------------------------------------------------------
    17041704
    1705 #include "compar1d.h"
     1705        INCLUDE "compar1d.h"
    17061706
    17071707! inputs:
    … …  
    18161816!---------------------------------------------------------------------------------------
    18171817
    1818 #include "compar1d.h"
     1818        INCLUDE "compar1d.h"
    18191819
    18201820! inputs:
    … …  
    21732173      implicit none
    21742174
    2175 #include "netcdf.inc"
     2175      INCLUDE "netcdf.inc"
    21762176
    21772177      integer ntime,nlevel
    … …  
    23852385      implicit none
    23862386
    2387 #include "netcdf.inc"
    2388 #include "YOMCST.h"
     2387      INCLUDE "netcdf.inc"
     2388      INCLUDE "YOMCST.h"
    23892389
    23902390      integer ntime,nlevel
    … …  
    27192719      implicit none
    27202720
    2721 #include "netcdf.inc"
     2721      INCLUDE "netcdf.inc"
    27222722
    27232723      integer ntime,nlevel,nsol
    … …  
    29602960     
    29612961      parameter (ncm_1=49180)
    2962 #include "YOMCST.h"
     2962      INCLUDE "YOMCST.h"
    29632963
    29642964      real albsfc(ncm_1), albsfc_w(ncm_1)
    … …  
    30643064      SUBROUTINE read_rtmip(nlev_rtmip,play,plev,t,h2o,o3)
    30653065     
    3066 #include "YOMCST.h"
     3066      INCLUDE "YOMCST.h"
    30673067
    30683068      real t(nlev_rtmip), pt(nlev_rtmip),pb(nlev_rtmip),h2o(nlev_rtmip), o3(nlev_rtmip)

  • LMDZ6/trunk/libf/phylmd/dyn1d/old_1D_decl_cases.h

    r3780 r4593  
    1 #include "netcdf.inc"
     1         INCLUDE "netcdf.inc"
    22
    33! Declarations specifiques au cas Toga

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

    r4558 r4593  
    4747
    4848      implicit none
    49 #include "dimensions.h"
    50 #include "YOMCST.h"
    51 !!#include "control.h"
    52 #include "clesphys.h"
    53 #include "dimsoil.h"
    54 !#include "indicesol.h"
    55 
    56 #include "compar1d.h"
    57 #include "flux_arp.h"
    58 #include "date_cas.h"
    59 #include "tsoilnudge.h"
    60 #include "fcg_gcssold.h"
    61 !!!#include "fbforcing.h"
    62 #include "compbl.h"
     49      INCLUDE "dimensions.h"
     50      INCLUDE "YOMCST.h"
     51!!      INCLUDE "control.h"
     52      INCLUDE "clesphys.h"
     53      INCLUDE "dimsoil.h"
     54!      INCLUDE "indicesol.h"
     55
     56      INCLUDE "compar1d.h"
     57      INCLUDE "flux_arp.h"
     58      INCLUDE "date_cas.h"
     59      INCLUDE "tsoilnudge.h"
     60      INCLUDE "fcg_gcssold.h"
     61!!!      INCLUDE "fbforcing.h"
     62      INCLUDE "compbl.h"
    6363
    6464!=====================================================================
    … …  
    163163!=====================================================================
    164164!
    165 #include "old_1D_decl_cases.h"
     165      INCLUDE "old_1D_decl_cases.h"
    166166!
    167167!---------------------------------------------------------------------
    … …  
    721721!=====================================================================
    722722
    723 #include "old_1D_read_forc_cases.h"
     723      INCLUDE "old_1D_read_forc_cases.h"
    724724
    725725      if (forcing_GCM2SCM) then
    … …  
    10691069!---------------------------------------------------------------------
    10701070
    1071 #include "old_1D_interp_cases.h"
     1071      INCLUDE "old_1D_interp_cases.h"
    10721072
    10731073      if (forcing_GCM2SCM) then
    … …  
    12571257! au dessus de 700hpa, on relaxe vers les profils initiaux
    12581258      if (forcing_sandu .OR. forcing_astex) then
    1259 #include "1D_nudge_sandu_astex.h"
     1259      INCLUDE "1D_nudge_sandu_astex.h"
    12601260      else
    12611261        u(1:mxcalc)=u(1:mxcalc) + timestep*(                                &
    … …  
    13621362        END SUBROUTINE old_lmdz1d
    13631363
    1364 #include "old_1DUTILS_read_interp.h"
     1364        INCLUDE "old_1DUTILS_read_interp.h"

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

    r4589 r4593  
    1111
    1212      implicit none
    13 #include "dimensions.h"
     13      INCLUDE "dimensions.h"
    1414
    1515real :: airefi

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

    r4553 r4593  
    4343
    4444      implicit none
    45 #include "dimensions.h"
    46 #include "YOMCST.h"
    47 !!#include "control.h"
    48 #include "clesphys.h"
    49 #include "dimsoil.h"
    50 !#include "indicesol.h"
    51 
    52 #include "compar1d.h"
    53 #include "flux_arp.h"
    54 #include "date_cas.h"
    55 #include "tsoilnudge.h"
    56 #include "fcg_gcssold.h"
    57 #include "compbl.h"
     45      INCLUDE "dimensions.h"
     46      INCLUDE "YOMCST.h"
     47!!      INCLUDE "control.h"
     48      INCLUDE "clesphys.h"
     49      INCLUDE "dimsoil.h"
     50!      INCLUDE "indicesol.h"
     51
     52      INCLUDE "compar1d.h"
     53      INCLUDE "flux_arp.h"
     54      INCLUDE "date_cas.h"
     55      INCLUDE "tsoilnudge.h"
     56      INCLUDE "fcg_gcssold.h"
     57      INCLUDE "compbl.h"
    5858
    5959!=====================================================================
    … …  
    129129!=====================================================================
    130130!
    131 #include "1D_decl_cases.h"
     131      INCLUDE "1D_decl_cases.h"
    132132!
    133133!---------------------------------------------------------------------
    … …  
    489489!=====================================================================
    490490
    491 #include "1D_read_forc_cases.h"
     491      INCLUDE "1D_read_forc_cases.h"
    492492   print*,'A d_t_adv ',d_t_adv(1:20)*86400
    493493
    … …  
    807807!---------------------------------------------------------------------
    808808
    809 #include "1D_interp_cases.h"
     809      INCLUDE "1D_interp_cases.h"
    810810
    811811!---------------------------------------------------------------------

  • LMDZ6/trunk/libf/phylmd/ener_conserv.F90

    r4232 r4593  
    3232
    3333IMPLICIT none
    34 #include "YOMCST.h"
    35 #include "YOETHF.h"
    36 #include "clesphys.h"
    37 #include "compbl.h"
     34INCLUDE "YOMCST.h"
     35INCLUDE "YOETHF.h"
     36INCLUDE "clesphys.h"
     37INCLUDE "compbl.h"
    3838
    3939! Arguments

  • LMDZ6/trunk/libf/phylmd/evappot.F90

    r1907 r4593  
    44IMPLICIT NONE
    55
    6 #include "YOMCST.h"
    7 #include "YOETHF.h"
    8 #include "FCTTRE.h"
     6INCLUDE "YOMCST.h"
     7INCLUDE "YOETHF.h"
     8INCLUDE "FCTTRE.h"
    99
    1010

  • LMDZ6/trunk/libf/phylmd/ini_undefSTD.F90

    r3435 r4593  
    3131  ! ====================================================================
    3232
    33   ! ym #include "dimphy.h"
     33  ! ym INCLUDE "dimphy.h"
    3434  ! variables Input/Output
    3535  ! INTEGER nlevSTD, klevSTD, itap

  • LMDZ6/trunk/libf/phylmd/iophys.F90

    r4361 r4593  
    220220! px arrive
    221221
    222 #include "iotd.h"
     222      INCLUDE "iotd.h"
    223223
    224224

  • LMDZ6/trunk/libf/phylmd/iotd_ecrit.F90

    r4259 r4593  
    2727! Commons
    2828
    29 #include "netcdf.inc"
    30 #include "iotd.h"
     29      INCLUDE "netcdf.inc"
     30      INCLUDE "iotd.h"
    3131
    3232

  • LMDZ6/trunk/libf/phylmd/iotd_fin.F90

    r3102 r4593  
    1414
    1515
    16 #include "netcdf.inc"
    17 #include "iotd.h"
     16      INCLUDE "netcdf.inc"
     17      INCLUDE "iotd.h"
    1818      integer ierr
    1919

  • LMDZ6/trunk/libf/phylmd/iotd_ini.F90

    r3978 r4593  
    1616!   -------------
    1717
    18 #include "netcdf.inc"
    19 #include "iotd.h"
     18      INCLUDE "netcdf.inc"
     19      INCLUDE "iotd.h"
    2020
    2121!   Arguments:

  • LMDZ6/trunk/libf/phylmd/lmdz_thermcell_alp.F90

    r4590 r4593  
    3737!   -------------
    3838
    39 #include "YOMCST.h"
    40 #include "YOETHF.h"
    41 #include "FCTTRE.h"
    42 #include "alpale.h"
     39      INCLUDE "YOMCST.h"
     40      INCLUDE "YOETHF.h"
     41      INCLUDE "FCTTRE.h"
     42      INCLUDE "alpale.h"
    4343
    4444!   arguments:

  • LMDZ6/trunk/libf/phylmd/lmdz_thermcell_qsat.F90

    r4590 r4593  
    55implicit none
    66
    7 #include "YOMCST.h"
    8 #include "YOETHF.h"
    9 #include "FCTTRE.h"
     7  INCLUDE "YOMCST.h"
     8  INCLUDE "YOETHF.h"
     9  INCLUDE "FCTTRE.h"
    1010
    1111

  • LMDZ6/trunk/libf/phylmd/methox.F90

    r2136 r4593  
    6565IMPLICIT NONE
    6666
    67 #include "YOMCST.h"
     67INCLUDE "YOMCST.h"
    6868
    6969INTEGER,INTENT(IN)    :: KLON

  • LMDZ6/trunk/libf/phylmd/phys_output_ctrlout_mod.F90

    r4575 r4593  
    20652065
    20662066#ifdef CPP_Dust
    2067 #include "Dust/spla_output_dat.h"
     2067      INCLUDE "Dust/spla_output_dat.h"
    20682068#endif
    20692069

  • LMDZ6/trunk/libf/phylmd/sw_aeroAR4.F90

    r2530 r4593  
    2626  IMPLICIT NONE
    2727
    28 #include "YOMCST.h"
    29 #include "clesphys.h"
     28  INCLUDE "YOMCST.h"
     29  INCLUDE "clesphys.h"
    3030  !
    3131  !     ------------------------------------------------------------------

  • LMDZ6/trunk/libf/phylmd/tend_to_tke.F90

    r3210 r4593  
    3838
    3939IMPLICIT NONE
    40 #include "YOMCST.h"
     40INCLUDE "YOMCST.h"
    4141
    4242! Declarations

  • LMDZ6/trunk/libf/phylmd/undefSTD.F90

    r3435 r4593  
    3737  ! ====================================================================
    3838
    39   ! ym#include "dimphy.h"
     39  ! ymINCLUDE "dimphy.h"
    4040  ! variables Input
    4141

  • LMDZ6/trunk/libf/phylmd/yamada_c.F90

    r3977 r4593  
    1010
    1111      IMPLICIT NONE
    12 #include "YOMCST.h"
     12      INCLUDE "YOMCST.h"
    1313!
    1414! timestep : pas de temps
Note: See TracChangeset for help on using the changeset viewer.