Ignore:
Timestamp:
Oct 28, 2024, 1:11:48 PM (4 days ago)
Author:
abarral
Message:

Turn iniprint.h clesphys.h into modules
Remove unused description.h

Location:
LMDZ6/trunk/libf/dyn3d_common
Files:
16 edited

Legend:

Unmodified
Added
Removed

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

    r5281 r5282  
    1414
    1515
    16 
    17   include "description.h"
    1816
    1917  !----------------------------------------------------------

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

    r5281 r5282  
    1515  !
    1616  !   --------------------------------------------------------------------
     17  USE iniprint_mod_h
    1718  USE comgeom_mod_h
    1819  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    … …  
    2324
    2425
    25   include "iniprint.h"
    2626
    2727  !
    … …  
    147147  !
    148148  !   --------------------------------------------------------------------
     149  USE iniprint_mod_h
    149150  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    150 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     151  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    151152          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    152153IMPLICIT NONE
    153154  !
    154 
    155 
    156   INCLUDE "iniprint.h"
    157155  !
    158156  !
    … …  
    268266  !   --------------------------------------------------------------------
    269267  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    270 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     268  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    271269          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     270  USE iniprint_mod_h
    272271IMPLICIT NONE
    273   !
    274 
    275 
    276   INCLUDE "iniprint.h"
     272
    277273  !
    278274  !
    … …  
    367363  !   --------------------------------------------------------------------
    368364  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    369 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     365  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    370366          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     367  USE iniprint_mod_h
    371368IMPLICIT NONE
    372   !
    373 
    374 
    375   INCLUDE "iniprint.h"
    376369  !
    377370  !
    … …  
    492485  !   --------------------------------------------------------------------
    493486  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    494 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     487  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    495488          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     489  USE iniprint_mod_h
    496490IMPLICIT NONE
    497491  !
    498492
    499493
    500   include "iniprint.h"
    501494  !
    502495  !
    … …  
    759752  !
    760753  !   --------------------------------------------------------------------
     754  USE iniprint_mod_h
    761755  USE comgeom_mod_h
    762756  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    … …  
    767761
    768762
    769   INCLUDE "iniprint.h"
    770763  !
    771764  !
    … …  
    893886  !
    894887  !   --------------------------------------------------------------------
     888  USE iniprint_mod_h
    895889  USE comgeom_mod_h
    896890  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    … …  
    901895
    902896
    903   INCLUDE "iniprint.h"
    904897  !
    905898  !

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

    r5281 r5282  
    5353  !======================================================================
    5454
     55  USE iniprint_mod_h
    5556  USE comgeom_mod_h
    5657  USE control_mod, ONLY : planet_type
    … …  
    6364
    6465
    65   INCLUDE "iniprint.h"
    6666
    6767  ! Ehouarn: for now set these parameters to what is in Earth physics...

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

    r5272 r5282  
    33SUBROUTINE disvert()
    44
     5  USE iniprint_mod_h
    56  use ioipsl, only: getin
    67  use new_unit_m, only: new_unit
    … …  
    1718
    1819
    19   include "iniprint.h"
    2020
    2121!-------------------------------------------------------------------------------

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

    r5272 r5282  
    66  !    On l'utilise aussi pour Venus et Titan, legerment modifiee.
    77
     8  USE iniprint_mod_h
    89  use IOIPSL
    910
    … …  
    2021
    2122
    22   include "iniprint.h"
    2323  !
    2424  !=======================================================================

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

    r5271 r5282  
    117117
    118118SUBROUTINE init_infotrac
     119   USE iniprint_mod_h
    119120   USE control_mod, ONLY: planet_type
    120121   USE lmdz_reprobus_wrappers, ONLY: Init_chem_rep_trac
    … …  
    142143! Declarations:
    143144
    144    INCLUDE "iniprint.h"
    145145
    146146!------------------------------------------------------------------------------------------------------------------------------

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

    r5272 r5282  
    44SUBROUTINE iniconst
    55
     6  USE iniprint_mod_h
    67  USE control_mod
    78  use IOIPSL
    … …  
    1011                          unsim, pi, r, kappa, cpp, dtvr, dtphys
    1112  USE comvert_mod, ONLY: disvert_type, pressure_exner
    12  
     13
    1314  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1415USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    2324
    2425
    25   include "iniprint.h"
    2626
    2727  character(len=*),parameter :: modname="iniconst"

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

    r5280 r5282  
    1111  !   -------------
    1212
     13  USE iniprint_mod_h
    1314  USE comdissipn_mod_h
    1415  USE control_mod, only : dissip_period,iperiod
    … …  
    2324
    2425
    25   include "iniprint.h"
    2626
    2727  LOGICAL,INTENT(in) :: lstardis

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

    r5281 r5282  
    33subroutine initdynav(day0,anne0,tstep,t_ops,t_wrt)
    44
     5  USE iniprint_mod_h
    56  USE comgeom_mod_h
    67  USE IOIPSL
    … …  
    3940
    4041
    41 
    42   include "description.h"
    43   include "iniprint.h"
    4442
    4543  !   Arguments

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

    r5281 r5282  
    66        fileid,filevid,filedid)
    77
    8    USE comgeom_mod_h
     8   USE iniprint_mod_h
     9  USE comgeom_mod_h
    910  USE IOIPSL
    1011  USE comconst_mod, ONLY: pi
    … …  
    4546  !   Declarations
    4647
    47 
    48   include "description.h"
    49   include "iniprint.h"
    5048
    5149  !   Arguments

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

    r5281 r5282  
    44subroutine inithist(day0,anne0,tstep,t_ops,t_wrt)
    55
    6    USE comgeom_mod_h
     6   USE iniprint_mod_h
     7  USE comgeom_mod_h
    78  USE IOIPSL
    89   USE infotrac, ONLY : nqtot
    … …  
    4445  !   Declarations
    4546
    46 
    47   include "description.h"
    48   include "iniprint.h"
    4947
    5048  !   Arguments

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

    r5281 r5282  
    1717
    1818
    19 
    20   include "description.h"
    2119
    2220  !---------------------------------------------------

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

    r5281 r5282  
    66        vcov )
    77
     8  USE iniprint_mod_h
    89  USE comgeom_mod_h
    910  USE control_mod, ONLY: resetvarc
    … …  
    3637
    3738
    38   INCLUDE "iniprint.h"
    3939
    4040  !   Arguments:

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

    r5281 r5282  
    1111implicit none
    1212
    13 
    14 
    15   include "description.h"
    1613
    1714

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

    r5281 r5282  
    33subroutine writedynav(time, vcov, ucov, teta, ppk, phi, q, masse, ps, phis)
    44
     5  USE iniprint_mod_h
    56  USE comgeom_mod_h
    67  USE ioipsl
    … …  
    3334  !   Declarations
    3435
    35 
    36   include "description.h"
    37   include "iniprint.h"
    3836
    3937  !   Arguments

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

    r5281 r5282  
    33!
    44subroutine writehist(time,vcov,ucov,teta,phi,q,masse,ps,phis)
     5  USE iniprint_mod_h
    56  USE comgeom_mod_h
    67  USE ioipsl
    … …  
    3536  !
    3637  !   Declarations
    37 
    38   include "description.h"
    39   include "iniprint.h"
    4038
    4139  !
Note: See TracChangeset for help on using the changeset viewer.