Ignore:
Timestamp:
Jul 28, 2024, 4:17:54 PM (12 months ago)
Author:
abarral
Message:

Put comgeom.h, comgeom2.h into modules

Location:
LMDZ6/branches/Amaury_dev/libf/dyn3d
Files:
23 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/addfi.F90

    r5134 r5136  
    88  USE control_mod, ONLY: planet_type
    99  USE lmdz_ssum_scopy, ONLY: ssum
     10  USE lmdz_comgeom
    1011  IMPLICIT NONE
    1112  !
    … …  
    4849  INCLUDE "dimensions.h"
    4950  INCLUDE "paramet.h"
    50   INCLUDE "comgeom.h"
    5151  !
    5252  !    Arguments :

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/advect.F90

    r5134 r5136  
    77  USE ener_mod, ONLY: gtot
    88  USE lmdz_ssum_scopy, ONLY: ssum
     9  USE lmdz_comgeom
    910
    1011  IMPLICIT NONE
    … …  
    3031  INCLUDE "dimensions.h"
    3132  INCLUDE "paramet.h"
    32   INCLUDE "comgeom.h"
    3333
    3434  !   Arguments:

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/advtrac.f90

    r5134 r5136  
    1919  USE lmdz_ssum_scopy, ONLY: scopy
    2020  USE lmdz_comdissip, ONLY: coefdis, tetavel, tetatemp, gamdissip, niterdis
     21  USE lmdz_comgeom2
    2122
    2223  IMPLICIT NONE
    … …  
    2425  INCLUDE "dimensions.h"
    2526  INCLUDE "paramet.h"
    26   INCLUDE "comgeom2.h"
    2727
    2828  !---------------------------------------------------------------------------

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/bilan_dyn.F90

    r5135 r5136  
    1414  USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn
    1515  USE lmdz_iniprint, ONLY: lunout, prt_level
    16 
     16  USE lmdz_comgeom2
    1717
    1818  IMPLICIT NONE
    … …  
    2020  INCLUDE "dimensions.h"
    2121  INCLUDE "paramet.h"
    22   INCLUDE "comgeom2.h"
    2322
    2423  !====================================================================

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/caldyn.F90

    r5134 r5136  
    66
    77  USE comvert_mod, ONLY: ap, bp
     8  USE lmdz_comgeom
    89
    910  IMPLICIT NONE
    … …  
    2728  INCLUDE "dimensions.h"
    2829  INCLUDE "paramet.h"
    29   INCLUDE "comgeom.h"
    3030
    3131  !   Arguments:

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/covnat.F90

    r5134 r5136  
    22
    33SUBROUTINE covnat(klevel, ucov, vcov, unat, vnat)
     4  USE lmdz_comgeom
     5
    46  IMPLICIT NONE
    57
    … …  
    2022 INCLUDE "dimensions.h"
    2123 INCLUDE "paramet.h"
    22  INCLUDE "comgeom.h"
    2324
    2425  INTEGER :: klevel

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/dissip.F90

    r5134 r5136  
    66  USE lmdz_comdissnew, ONLY: lstardis, nitergdiv, nitergrot, niterh, tetagdiv, &
    77          tetagrot, tetatemp, coefdis, vert_prof_dissip
     8  USE lmdz_comgeom
    89
    910  IMPLICIT NONE
    … …  
    3031  INCLUDE "dimensions.h"
    3132  INCLUDE "paramet.h"
    32   INCLUDE "comgeom.h"
    3333
    3434  !   Arguments:

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/dynetat0.F90

    r5134 r5136  
    2222  USE lmdz_description, ONLY: descript
    2323  USE lmdz_iniprint, ONLY: lunout, prt_level
    24 
     24  USE lmdz_comgeom2
    2525
    2626  IMPLICIT NONE
    2727  INCLUDE "dimensions.h"
    2828  INCLUDE "paramet.h"
    29   INCLUDE "comgeom2.h"
    3029!===============================================================================
    3130! Arguments:

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/dynredem.F90

    r5134 r5136  
    2020  USE lmdz_description, ONLY: descript
    2121  USE lmdz_iniprint, ONLY: lunout, prt_level
     22  USE lmdz_comgeom2
    2223
    2324  IMPLICIT NONE
    2425  INCLUDE "dimensions.h"
    2526  INCLUDE "paramet.h"
    26   INCLUDE "comgeom2.h"
    2727  !===============================================================================
    2828  ! Arguments:
    … …  
    167167  USE lmdz_description, ONLY: descript
    168168  USE lmdz_iniprint, ONLY: lunout, prt_level
     169  USE lmdz_comgeom
    169170
    170171  IMPLICIT NONE
    171172  INCLUDE "dimensions.h"
    172173  INCLUDE "paramet.h"
    173   INCLUDE "comgeom.h"
    174174  !===============================================================================
    175175  ! Arguments:

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/fluxstokenc.F90

    r5134 r5136  
    88  USE lmdz_iniprint, ONLY: lunout, prt_level
    99  USE lmdz_ssum_scopy, ONLY: scopy
     10  USE lmdz_comgeom
     11
    1012  !
    1113  ! Auteur :  F. Hourdin
    … …  
    1820  INCLUDE "dimensions.h"
    1921  INCLUDE "paramet.h"
    20   INCLUDE "comgeom.h"
    2122  INCLUDE "tracstoke.h"
    2223

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/friction.F90

    r5134 r5136  
    99  USE lmdz_iniprint, ONLY: lunout, prt_level
    1010  USE lmdz_academic, ONLY: tetarappel, knewt_t, kfrict, knewt_g, clat4
     11  USE lmdz_comgeom2
    1112
    1213  IMPLICIT NONE
    … …  
    2627  INCLUDE "dimensions.h"
    2728  INCLUDE "paramet.h"
    28   INCLUDE "comgeom2.h"
    2929
    3030  ! arguments:

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/gcm.F90

    r5134 r5136  
    3030  USE lmdz_comdissnew, ONLY: lstardis, nitergdiv, nitergrot, niterh, tetagdiv, &
    3131          tetagrot, tetatemp, coefdis, vert_prof_dissip
     32  USE lmdz_comgeom
    3233
    3334  IMPLICIT NONE
    … …  
    6566  INCLUDE "dimensions.h"
    6667  INCLUDE "paramet.h"
    67   INCLUDE "comgeom.h"
    6868  INCLUDE "tracstoke.h"
    6969

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/groupe.F90

    r5134 r5136  
    55  USE comconst_mod, ONLY: ngroup
    66  USE lmdz_ssum_scopy, ONLY: scopy
    7 
     7  USE lmdz_comgeom2
    88
    99  IMPLICIT NONE
    … …  
    2222  INCLUDE "dimensions.h"
    2323  INCLUDE "paramet.h"
    24   INCLUDE "comgeom2.h"
    2524
    2625  ! integer ngroup

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/groupeun.F90

    r5134 r5136  
    44
    55  USE comconst_mod, ONLY: ngroup
     6  USE lmdz_comgeom2
    67
    78  IMPLICIT NONE
    … …  
    910  INCLUDE "dimensions.h"
    1011  INCLUDE "paramet.h"
    11   INCLUDE "comgeom2.h"
    1212
    1313  INTEGER :: jjmax, llmax
    … …  
    134134
    135135  USE comconst_mod, ONLY: ngroup
     136  USE lmdz_comgeom2
    136137
    137138  IMPLICIT NONE
    … …  
    139140  INCLUDE "dimensions.h"
    140141  INCLUDE "paramet.h"
    141   INCLUDE "comgeom2.h"
    142142
    143143  ! INTEGER ngroup

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/guide_mod.F90

    r5134 r5136  
    608608
    609609    USE comconst_mod, ONLY: pi
     610    USE lmdz_comgeom
    610611
    611612    IMPLICIT NONE
    … …  
    613614    INCLUDE "dimensions.h"
    614615    INCLUDE "paramet.h"
    615     INCLUDE "comgeom.h"
    616616
    617617    ! input/output variables
    … …  
    676676    USE comvert_mod, ONLY: preff, pressure_exner, bp, ap
    677677    USE lmdz_q_sat, ONLY: q_sat
     678    USE lmdz_comgeom2
     679
    678680    IMPLICIT NONE
    679681
    680682    INCLUDE "dimensions.h"
    681683    INCLUDE "paramet.h"
    682     INCLUDE "comgeom2.h"
    683684
    684685    REAL, DIMENSION (iip1, jjp1), INTENT(IN) :: psi ! Psol gcm
    … …  
    925926    USE comconst_mod, ONLY: pi
    926927    USE serre_mod, ONLY: clon, clat, grossismx, grossismy
     928    USE lmdz_comgeom2
    927929
    928930    IMPLICIT NONE
    … …  
    930932    INCLUDE "dimensions.h"
    931933    INCLUDE "paramet.h"
    932     INCLUDE "comgeom2.h"
    933934
    934935    ! input arguments :
    … …  
    16501651    USE comvert_mod, ONLY: presnivs
    16511652    USE netcdf95, ONLY: nf95_def_var, nf95_put_var
     1653    USE lmdz_comgeom2
    16521654
    16531655    IMPLICIT NONE
    … …  
    16551657    INCLUDE "dimensions.h"
    16561658    INCLUDE "paramet.h"
    1657     INCLUDE "comgeom2.h"
    16581659
    16591660    ! Variables entree

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/iniacademic.F90

    r5134 r5136  
    2020  USE lmdz_iniprint, ONLY: lunout, prt_level
    2121  USE lmdz_academic, ONLY: tetarappel, knewt_t, kfrict, knewt_g, clat4
     22  USE lmdz_comgeom
    2223
    2324  !   Author:    Frederic Hourdin      original: 15/01/93
    … …  
    3233  INCLUDE "dimensions.h"
    3334  INCLUDE "paramet.h"
    34   INCLUDE "comgeom.h"
    3535
    3636  !   Arguments:

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/integrd.F90

    r5134 r5136  
    1313  USE lmdz_iniprint, ONLY: lunout, prt_level
    1414  USE lmdz_ssum_scopy, ONLY: scopy, ssum
    15 
     15  USE lmdz_comgeom
    1616
    1717  IMPLICIT NONE
    … …  
    3535  INCLUDE "dimensions.h"
    3636  INCLUDE "paramet.h"
    37   INCLUDE "comgeom.h"
    3837
    3938  !   Arguments:

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/leapfrog.F90

    r5134 r5136  
    3131  USE lmdz_comdissnew, ONLY: lstardis, nitergdiv, nitergrot, niterh, tetagdiv, &
    3232          tetagrot, tetatemp, coefdis, vert_prof_dissip
     33  USE lmdz_comgeom
    3334
    3435  IMPLICIT NONE
    … …  
    6768  INCLUDE "dimensions.h"
    6869  INCLUDE "paramet.h"
    69   INCLUDE "comgeom.h"
    7070
    7171  REAL, INTENT(IN) :: time_0 ! not used

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/replay3d.F90

    r5134 r5136  
    2323  USE lmdz_comdissnew, ONLY: lstardis, nitergdiv, nitergrot, niterh, tetagdiv, &
    2424          tetagrot, tetatemp, coefdis, vert_prof_dissip
     25  USE lmdz_comgeom2
    2526
    2627  IMPLICIT NONE
    … …  
    5859  INCLUDE "dimensions.h"
    5960  INCLUDE "paramet.h"
    60   INCLUDE "comgeom2.h"
    6161
    6262  REAL zdtvr

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/sw_case_williamson91_6.F90

    r5134 r5136  
    2828  USE comvert_mod, ONLY: ap, bp, preff
    2929  USE lmdz_iniprint, ONLY: lunout, prt_level
     30  USE lmdz_comgeom
    3031
    3132  IMPLICIT NONE
    … …  
    3637  INCLUDE "dimensions.h"
    3738  INCLUDE "paramet.h"
    38   INCLUDE "comgeom.h"
    3939
    4040  !   Arguments:

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/top_bound.F90

    r5134 r5136  
    88  USE lmdz_iniprint, ONLY: lunout, prt_level
    99  USE lmdz_comdissipn, ONLY: tetaudiv, tetaurot, tetah, cdivu, crot, cdivh
     10  USE lmdz_comgeom2
    1011
    1112  IMPLICIT NONE
    … …  
    1314  INCLUDE "dimensions.h"
    1415  INCLUDE "paramet.h"
    15   INCLUDE "comgeom2.h"
    1616
    1717

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/vlsplt.F90

    r5134 r5136  
    422422          min_qParent, min_qMass, min_ratio ! MVals et CRisi
    423423  USE lmdz_ssum_scopy, ONLY: ssum
     424  USE lmdz_comgeom
    424425
    425426 !
    … …  
    439440  INCLUDE "dimensions.h"
    440441  INCLUDE "paramet.h"
    441   INCLUDE "comgeom.h"
    442442  !
    443443  !

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/vlspltqs.F90

    r5134 r5136  
    522522  USE comconst_mod, ONLY: pi
    523523  USE lmdz_ssum_scopy, ONLY: ssum
     524  USE lmdz_comgeom
    524525
    525526  IMPLICIT NONE
    … …  
    527528  INCLUDE "dimensions.h"
    528529  INCLUDE "paramet.h"
    529   INCLUDE "comgeom.h"
    530   !
    531530  !
    532531  !   Arguments:
Note: See TracChangeset for help on using the changeset viewer.