Changeset 5280


Ignore:
Timestamp:
Oct 28, 2024, 10:47:48 AM (2 months ago)
Author:
abarral
Message:

Turn comdissip.h, comdissipn.h, comdissnew.h into modules

Location:
LMDZ6/trunk/libf
Files:
28 edited
4 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3d/advtrac.f90

    r5272 r5280  
    99   !            M.A Filiberti (04/2002)
    1010   !
     11   USE comdissip_mod_h
    1112   USE infotrac,     ONLY: nqtot, tracers, isoCheck
    1213   USE control_mod,  ONLY: iapp_tracvl, day_step
    … …  
    2122
    2223
    23    include "comdissip.h"
    2424   include "comgeom2.h"
    2525   include "description.h"

  • LMDZ6/trunk/libf/dyn3d/conf_gcm.f90

    r5272 r5280  
    44SUBROUTINE conf_gcm( tapedef, etatinit )
    55
     6  USE comdissnew_mod_h
    67  USE control_mod
    78  use IOIPSL
    … …  
    3839
    3940
    40   include "comdissnew.h"
    4141  include "iniprint.h"
    4242

  • LMDZ6/trunk/libf/dyn3d/dissip.f90

    r5272 r5280  
    44SUBROUTINE dissip( vcov,ucov,teta,p, dv,du,dh )
    55  !
     6  USE comdissipn_mod_h
     7  USE comdissnew_mod_h
    68  USE comconst_mod, ONLY: dtdiss
    79
    … …  
    3335
    3436  include "comgeom.h"
    35   include "comdissnew.h"
    36   include "comdissipn.h"
    3737
    3838  !   Arguments:

  • LMDZ6/trunk/libf/dyn3d/gcm.f90

    r5272 r5280  
    55!
    66PROGRAM gcm
     7  USE comdissnew_mod_h
    78  USE IOIPSL
    89  USE wxios  ! ug Pour les sorties XIOS
    … …  
    1819!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    1920  ! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique
    20   ! A nettoyer. On ne veut qu'une ou deux routines d'interface 
     21  ! A nettoyer. On ne veut qu'une ou deux routines d'interface
    2122  ! dynamique -> physique pour l'initialisation
    2223  USE iniphysiq_mod, ONLY: iniphysiq
    … …  
    2930  !      ......   Version  du 10/01/98    ..........
    3031
    31   !             avec  coordonnees  verticales hybrides 
     32  !             avec  coordonnees  verticales hybrides
    3233  !   avec nouveaux operat. dissipation * ( gradiv2,divgrad2,nxgraro2 )
    3334
    … …  
    5657  !   Declarations:
    5758  !   -------------
    58   include "comdissnew.h"
    5959  include "comgeom.h"
    6060  include "description.h"

  • LMDZ6/trunk/libf/dyn3d/leapfrog.F90

    r5272 r5280  
    66SUBROUTINE leapfrog(ucov,vcov,teta,ps,masse,phis,q,time_0)
    77  !IM : pour sortir les param. du modele dans un fis. netcdf 110106
     8  USE comdissnew_mod_h
    89  use IOIPSL
    910  USE infotrac, ONLY: nqtot, isoCheck
    … …  
    5960  !   Declarations:
    6061  !   -------------
    61   include "comdissnew.h"
    6262  include "comgeom.h"
    6363  include "description.h"

  • LMDZ6/trunk/libf/dyn3d/replay3d.f90

    r5272 r5280  
    55!
    66PROGRAM replay3d
     7  USE comdissnew_mod_h
    78  USE comvert_mod, only :  preff, pa
    89  USE inigeomphy_mod, ONLY: inigeomphy
    … …  
    1819!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    1920  ! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique
    20   ! A nettoyer. On ne veut qu'une ou deux routines d'interface 
     21  ! A nettoyer. On ne veut qu'une ou deux routines d'interface
    2122  ! dynamique -> physique pour l'initialisation
    2223  USE iniphysiq_mod, ONLY: iniphysiq
    … …  
    2930  !      ......   Version  du 10/01/98    ..........
    3031
    31   !             avec  coordonnees  verticales hybrides 
     32  !             avec  coordonnees  verticales hybrides
    3233  !   avec nouveaux operat. dissipation * ( gradiv2,divgrad2,nxgraro2 )
    3334
    … …  
    5657  !   Declarations:
    5758  !   -------------
    58   include "comdissnew.h"
    5959  include "comgeom2.h"
    6060

  • LMDZ6/trunk/libf/dyn3d/top_bound.F90

    r5272 r5280  
    44SUBROUTINE top_bound(vcov,ucov,teta,masse,dt)
    55
    6   USE comconst_mod, ONLY: iflag_top_bound, mode_top_bound, &
     6  USE comdissipn_mod_h
     7USE comconst_mod, ONLY: iflag_top_bound, mode_top_bound, &
    78        tau_top_bound
    89  USE comvert_mod, ONLY: presnivs, preff, scaleheight
    … …  
    5758
    5859
    59 INCLUDE "comdissipn.h"
    6060INCLUDE "iniprint.h"
    6161

  • LMDZ6/trunk/libf/dyn3d_common/adaptdt.f90

    r5272 r5280  
    55        masse)
    66
     7  USE comdissip_mod_h
    78  USE comconst_mod, ONLY: dtvr
    89  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    … …  
    1314
    1415
    15   include "comdissip.h"
    1616  include "comgeom2.h"
    1717  include "description.h"

  • LMDZ6/trunk/libf/dyn3d_common/comdissip_mod_h.f90

    r5279 r5280  
    1 !
    2 ! $Header$
    3 !
    4 !-----------------------------------------------------------------------
    5 ! INCLUDE comdissip.h
     1! Replaces comdissip.h
     2MODULE comdissip_mod_h
     3  IMPLICIT NONE; PRIVATE
     4  PUBLIC coefdis, tetavel, tetatemp, gamdissip, niterdis
    65
    7       COMMON/comdissip/                                                 &
    8      &    niterdis,coefdis,tetavel,tetatemp,gamdissip
    9 
    10 
    11       INTEGER niterdis
    12 
    13       REAL tetavel,tetatemp,coefdis,gamdissip
    14 
    15 !-----------------------------------------------------------------------
     6  INTEGER niterdis
     7  REAL tetavel, tetatemp, coefdis, gamdissip
     8END MODULE comdissip_mod_h

  • LMDZ6/trunk/libf/dyn3d_common/comdissipn_mod_h.f90

    r5279 r5280  
    1 !
    2 ! $Header$
    3 !
    4 !  Attention : ce fichier include est compatible format fixe/format libre
    5 !                 veillez à n'utiliser que des ! pour les commentaires
    6 !                 et à bien positionner les & des lignes de continuation
    7 !                 (les placer en colonne 6 et en colonne 73)
    8 !-----------------------------------------------------------------------
    9 ! INCLUDE comdissipn.h
     1! Replaces comdissipn.h
     2MODULE comdissipn_mod_h
     3  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     4  IMPLICIT NONE; PRIVATE
     5  PUBLIC tetaudiv, tetaurot, tetah, cdivu, crot, cdivh
    106
    11       REAL  tetaudiv, tetaurot, tetah, cdivu, crot, cdivh
    12 !
    13       COMMON/comdissipn/ tetaudiv(llm),tetaurot(llm),tetah(llm)   ,     &
    14      &                        cdivu,      crot,         cdivh
    157
    16 !
    17 !    Les parametres de ce common proviennent des calculs effectues dans
    18 !             Inidissip  .
    19 !
    20 !-----------------------------------------------------------------------
     8
     9  REAL tetaudiv(llm), tetaurot(llm), tetah(llm), cdivu, crot, cdivh
     10END MODULE comdissipn_mod_h

  • LMDZ6/trunk/libf/dyn3d_common/comdissnew_mod_h.f90

    r5279 r5280  
    1 !
    2 ! $Id$
    3 !
    4 !
    5 !  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
    6 !                 veillez à n'utiliser que des ! pour les commentaires
    7 !                 et à bien positionner les & des lignes de continuation
    8 !                 (les placer en colonne 6 et en colonne 73)
    9 !
    10 !-----------------------------------------------------------------------
    11 ! INCLUDE 'comdissnew.h'
     1! Replaces comdissnew.h
    122
    13       COMMON/comdissnew/ lstardis,nitergdiv,nitergrot,niterh,tetagdiv,  &
    14      &                   tetagrot,tetatemp,coefdis, vert_prof_dissip
     3MODULE comdissnew_mod_h
     4  IMPLICIT NONE; PRIVATE
     5  PUBLIC lstardis, nitergdiv, nitergrot, niterh, tetagdiv, &
     6          tetagrot, tetatemp, coefdis, vert_prof_dissip
    157
    16       LOGICAL lstardis
    17       INTEGER nitergdiv, nitergrot, niterh
     8  LOGICAL lstardis
     9  INTEGER nitergdiv, nitergrot, niterh
    1810
    19       integer vert_prof_dissip ! vertical profile of horizontal dissipation
    20 !     Allowed values:
    21 !     0: rational fraction, function of pressure
    22 !     1: tanh of altitude
     11  INTEGER vert_prof_dissip ! vertical profile of horizontal dissipation
     12  !     Allowed values:
     13  !     0: rational fraction, function of pressure
     14  !     1: tanh of altitude
    2315
    24       REAL     tetagdiv, tetagrot,  tetatemp, coefdis
    25 
    26 !
    27 ! ... Les parametres de ce common comdissnew sont  lues par defrun_new
    28 !              sur le fichier  run.def    ....
    29 !
    30 !-----------------------------------------------------------------------
     16  REAL     tetagdiv, tetagrot, tetatemp, coefdis
     17  ! ... Les parametres de ce lmdz_comdissnew sont  lues par defrun_new
     18  !              sur le fichier  run.def    ....
     19END MODULE comdissnew_mod_h

  • LMDZ6/trunk/libf/dyn3d_common/divgrad.f90

    r5272 r5280  
    33!
    44SUBROUTINE divgrad (klevel,h, lh, divgra )
     5  USE comdissipn_mod_h
    56  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    67USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    2627
    2728  include "comgeom.h"
    28   include "comdissipn.h"
    2929  !
    3030  INTEGER :: klevel

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

    r5272 r5280  
    1313  !     divgra     est  un argument  de sortie pour le s-prg
    1414  !
     15  USE comdissipn_mod_h
    1516  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1617USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    2122
    2223  INCLUDE "comgeom2.h"
    23   INCLUDE "comdissipn.h"
    2424
    2525  !    .......    variables en arguments   .......

  • LMDZ6/trunk/libf/dyn3d_common/gradiv.f90

    r5272 r5280  
    1717  !
    1818  !
     19  USE comdissipn_mod_h
    1920  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    2021USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    2425
    2526
    26   include "comdissipn.h"
    2727
    2828  INTEGER :: klevel

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

    r5272 r5280  
    1616  !
    1717  !
     18  USE comdissipn_mod_h
    1819  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1920USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    2425
    2526  INCLUDE "comgeom.h"
    26   INCLUDE "comdissipn.h"
    2727  !
    2828  ! ........    variables en arguments      ........

  • LMDZ6/trunk/libf/dyn3d_common/inidissip.f90

    r5272 r5280  
    1111  !   -------------
    1212
     13  USE comdissipn_mod_h
    1314  USE control_mod, only : dissip_period,iperiod
    1415  USE comconst_mod, ONLY: dissip_deltaz, dissip_factz, dissip_zref, &
    … …  
    2223
    2324
    24   include "comdissipn.h"
    2525  include "iniprint.h"
    2626

  • LMDZ6/trunk/libf/dyn3d_common/inigeom.f90

    r5272 r5280  
    1616  !
    1717  !
     18  USE comdissnew_mod_h
    1819  use fxhyp_m, only: fxhyp
    1920  use fyhyp_m, only: fyhyp
    … …  
    3031
    3132  include "comgeom2.h"
    32   include "comdissnew.h"
    3333
    3434  !-----------------------------------------------------------------------

  • LMDZ6/trunk/libf/dyn3d_common/interpre.f90

    r5272 r5280  
    66         unatppm,vnatppm,psppm)
    77
     8  USE comdissip_mod_h
    89  USE comconst_mod, ONLY: g
    910  USE comvert_mod, ONLY: ap, bp
    … …  
    1617
    1718
    18   include "comdissip.h"
    1919  include "comgeom2.h"
    2020  include "description.h"

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

    r5272 r5280  
    1515  !
    1616  !
     17  USE comdissipn_mod_h
    1718  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1819USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    2223
    2324
    24   INCLUDE "comdissipn.h"
    2525  !
    2626  !    ......  variables en arguments  .......

  • LMDZ6/trunk/libf/dyn3d_common/nxgrarot.f90

    r5272 r5280  
    1616  !
    1717  !
     18  USE comdissipn_mod_h
    1819  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1920USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    2425
    2526
    26   include "comdissipn.h"
    2727  !
    2828  INTEGER :: klevel

  • LMDZ6/trunk/libf/dyn3d_common/traceurpole.f90

    r5272 r5280  
    44    subroutine traceurpole(q,masse)
    55
    6       USE dimensions_mod, ONLY: iim, jjm, llm, ndm
     6      USE comdissip_mod_h
     7  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    78USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    89          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    … …  
    1112
    1213
    13   include "comdissip.h"
    1414  include "comgeom2.h"
    1515  include "description.h"

  • LMDZ6/trunk/libf/dyn3dmem/advtrac_loc.f90

    r5272 r5280  
    88   !            M.A Filiberti (04/2002)
    99   !
     10   USE comdissip_mod_h
    1011   USE infotrac,     ONLY: nqtot, tracers
    1112   USE control_mod,  ONLY: iapp_tracvl, day_step, planet_type
    … …  
    2829
    2930
    30    include "comdissip.h"
    3131   include "comgeom2.h"
    3232   include "description.h"

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

    r5272 r5280  
    44SUBROUTINE conf_gcm( tapedef, etatinit )
    55
     6  USE comdissnew_mod_h
    67  USE control_mod
    78  USE IOIPSL
    … …  
    4344
    4445
    45   include "comdissnew.h"
    4646  include "iniprint.h"
    4747

  • LMDZ6/trunk/libf/dyn3dmem/dissip_loc.f90

    r5272 r5280  
    44SUBROUTINE dissip_loc( vcov,ucov,teta,p, dv,du,dh )
    55  !
     6  USE comdissipn_mod_h
     7  USE comdissnew_mod_h
    68  USE parallel_lmdz
    79  USE write_field_loc
    … …  
    3638
    3739  include "comgeom.h"
    38   include "comdissnew.h"
    39   include "comdissipn.h"
    4040
    4141  !   Arguments:

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

    r5272 r5280  
    1010  !     divgra     est  un argument  de sortie pour le s-prg
    1111  !
     12  USE comdissipn_mod_h
    1213  USE parallel_lmdz
    1314  USE times
    … …  
    2223
    2324  INCLUDE "comgeom2.h"
    24   INCLUDE "comdissipn.h"
    2525
    2626  !    .......    variables en arguments   .......

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

    r5272 r5280  
    1313!  USE mod_interface_dyn_phys, ONLY: init_interface_dyn_phys
    1414!#endif
     15  USE comdissnew_mod_h
    1516  USE mod_hallo
    1617  USE Bands
    … …  
    6061  !   Declarations:
    6162  !   -------------
    62   include "comdissnew.h"
    6363  include "comgeom.h"
    6464  include "description.h"

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

    r5272 r5280  
    1313  !
    1414  !
     15  USE comdissipn_mod_h
    1516  USE parallel_lmdz
    1617  USE times
    … …  
    2728
    2829  INCLUDE "comgeom.h"
    29   INCLUDE "comdissipn.h"
    3030  !
    3131  ! ........    variables en arguments      ........

  • LMDZ6/trunk/libf/dyn3dmem/leapfrog_loc.f90

    r5272 r5280  
    22        masse0,phis0,q0,time_0)
    33
     4   USE comdissnew_mod_h
    45   USE misc_mod
    56   USE parallel_lmdz
    … …  
    7576  !   Declarations:
    7677  !   -------------
    77    include "comdissnew.h"
    7878  include "comgeom.h"
    7979  include "description.h"

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

    r5272 r5280  
    1212  !
    1313  !
     14  USE comdissipn_mod_h
    1415  USE write_Field_p
    1516  USE parallel_lmdz
    … …  
    2526
    2627
    27   INCLUDE "comdissipn.h"
    2828  !
    2929  !    ......  variables en arguments  .......

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

    r5272 r5280  
    33!
    44SUBROUTINE top_bound_loc(vcov,ucov,teta,masse,dt)
     5  USE comdissipn_mod_h
    56  USE parallel_lmdz
    67  USE comconst_mod, ONLY: iflag_top_bound, mode_top_bound, &
    … …  
    5758
    5859
    59   INCLUDE "comdissipn.h"
    6060  INCLUDE "iniprint.h"
    6161

  • LMDZ6/trunk/libf/dynphy_lonlat/phylmd/etat0dyn_netcdf.F90

    r5272 r5280  
    4040  USE temps_mod, ONLY: annee_ref, day_ref, itau_dyn, itau_phy, start_time
    4141  USE strings_mod, ONLY: strLower
    42  
     42
    4343  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    44 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     44  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    4545          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     46  USE comdissnew_mod_h
    4647IMPLICIT NONE
    4748
    … …  
    5354
    5455  include "comgeom2.h"
    55   include "comdissnew.h"
    5656  REAL, SAVE :: deg2rad
    5757  INTEGER,            SAVE      :: iml_dyn, jml_dyn, llm_dyn, ttm_dyn, fid_dyn

  • LMDZ6/trunk/libf/phylmd/dyn1d/comdissnew_mod_h.f90

    r5279 r5280  
    1 link ../../dyn3d_common/comdissnew.h
     1link ../../dyn3d_common/comdissnew_mod_h.f90
Note: See TracChangeset for help on using the changeset viewer.