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/dyn3d_common
Files:
31 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   ......
Note: See TracChangeset for help on using the changeset viewer.