Ignore:
Timestamp:
Jun 29, 2023, 3:55:54 PM (2 years 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/dyn3dmem
Files:
32 edited

Legend:

Unmodified
Added
Removed

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