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

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

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

Legend:

Unmodified
Added
Removed

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

    r5271 r5282  
    66SUBROUTINE abort_gcm(modname, message, ierr)
    77
    8   USE IOIPSL
     8  USE iniprint_mod_h
     9USE IOIPSL
    910  !! ug Pour les sorties XIOS
    1011  USE wxios
    1112
    12 INCLUDE "iniprint.h"
    1313
    1414  !

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

    r5281 r5282  
    99   !            M.A Filiberti (04/2002)
    1010   !
     11   USE iniprint_mod_h
    1112   USE comgeom2_mod_h
    1213   USE comdissip_mod_h
    … …  
    2223   !
    2324
    24 
    25    include "description.h"
    26    include "iniprint.h"
    2725
    2826   !---------------------------------------------------------------------------

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

    r5281 r5282  
    1010  !             vQ..A=Cp T + L * ...
    1111
     12  USE iniprint_mod_h
    1213  USE comgeom2_mod_h
    1314  USE IOIPSL
    … …  
    2324
    2425
    25   include "iniprint.h"
    2626
    2727  !====================================================================

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

    r5280 r5282  
    44SUBROUTINE conf_gcm( tapedef, etatinit )
    55
     6  USE iniprint_mod_h
    67  USE comdissnew_mod_h
    78  USE control_mod
    … …  
    3940
    4041
    41   include "iniprint.h"
    4242
    4343  !   local:

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

    r5281 r5282  
    66! Purpose: Initial state reading.
    77!-------------------------------------------------------------------------------
     8  USE iniprint_mod_h
    89  USE comgeom2_mod_h
    910  USE infotrac,    ONLY: nqtot, tracers, niso, iqIsoPha, iH2O, isoName, &
    … …  
    3132
    3233
    33   include "description.h"
    34   include "iniprint.h"
    35 !===============================================================================
     34  !===============================================================================
    3635! Arguments:
    3736  CHARACTER(LEN=*), INTENT(IN) :: fichnom          !--- FILE NAME

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

    r5281 r5282  
    2323          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2424  USE comgeom2_mod_h
     25  USE iniprint_mod_h
    2526IMPLICIT NONE
    2627
    27 
    28   include "description.h"
    29   include "iniprint.h"
    30 !===============================================================================
     28  !===============================================================================
    3129! Arguments:
    3230  CHARACTER(LEN=*), INTENT(IN) :: fichnom          !--- FILE NAME
    … …  
    174172          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    175173  USE comgeom_mod_h
     174  USE iniprint_mod_h
    176175IMPLICIT NONE
    177176
    178177
    179   include "description.h"
    180   include "iniprint.h"
    181 !===============================================================================
     178  !===============================================================================
    182179! Arguments:
    183180  CHARACTER(LEN=*), INTENT(IN) :: fichnom              !-- FILE NAME

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

    r5281 r5282  
    66  ! This routine is designed to work with ioipsl
    77
    8    USE comgeom_mod_h
     8   USE iniprint_mod_h
     9  USE comgeom_mod_h
    910  USE IOIPSL
    1011  !
    … …  
    2223
    2324  include "tracstoke.h"
    24   include "iniprint.h"
    2525
    2626  REAL :: time_step,t_wrt, t_ops

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

    r5281 r5282  
    44!=======================================================================
    55SUBROUTINE friction(ucov,vcov,pdt)
     6  USE iniprint_mod_h
    67  USE comgeom2_mod_h
    78  USE control_mod
    … …  
    2627
    2728
    28   include "iniprint.h"
    2929  include "academic.h"
    3030

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

    r5281 r5282  
    55!
    66PROGRAM gcm
     7  USE iniprint_mod_h
    78  USE comgeom_mod_h
    89  USE comdissnew_mod_h
    … …  
    5859  !   Declarations:
    5960  !   -------------
    60   include "description.h"
    61   include "iniprint.h"
    6261  include "tracstoke.h"
    6362
    … …  
    116115  abort_message = 'last timestep reached'
    117116  modname = 'gcm'
    118   descript = 'Run GCM LMDZ'
    119117  lafin    = .FALSE.
    120118  dynhist_file = 'dyn_hist.nc'

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

    r5281 r5282  
    88!            F. Codron 01/09
    99!=======================================================================
     10    USE iniprint_mod_h
    1011    USE getparam, only: ini_getparam, fin_getparam, getpar
    1112  USE Write_Field
    … …  
    368369
    369370
    370     INCLUDE "iniprint.h"
    371371
    372372

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

    r5281 r5282  
    44SUBROUTINE iniacademic(vcov,ucov,teta,q,masse,ps,phis,time_0)
    55
     6  USE iniprint_mod_h
    67  USE comgeom_mod_h
    78  USE filtreg_mod, ONLY: inifilr
    … …  
    3839
    3940  include "academic.h"
    40   include "iniprint.h"
    4141
    4242  !   Arguments:

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

    r5281 r5282  
    77        )
    88
     9  USE iniprint_mod_h
    910  USE comgeom_mod_h
    1011  use control_mod, only : planet_type
    … …  
    3738
    3839
    39   include "iniprint.h"
    4040
    4141  !   Arguments:

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

    r5281 r5282  
    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 iniprint_mod_h
    89  USE comgeom_mod_h
    910  USE comdissnew_mod_h
    … …  
    6162  !   Declarations:
    6263  !   -------------
    63   include "description.h"
    64   include "iniprint.h"
    6564  include "academic.h"
    6665

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

    r5281 r5282  
    2626  !
    2727  !=======================================================================
     28  USE iniprint_mod_h
    2829  USE comgeom_mod_h
    2930  USE comconst_mod, ONLY: cpp, omeg, rad
    … …  
    4041
    4142
    42   include "iniprint.h"
    4343
    4444  !   Arguments:

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

    r5281 r5282  
    44SUBROUTINE top_bound(vcov,ucov,teta,masse,dt)
    55
    6   USE comgeom2_mod_h
     6  USE iniprint_mod_h
     7USE comgeom2_mod_h
    78  USE comdissipn_mod_h
    89USE comconst_mod, ONLY: iflag_top_bound, mode_top_bound, &
    … …  
    5859
    5960
    60 INCLUDE "iniprint.h"
    6161
    6262  !   Arguments:

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

    r5281 r5282  
    142142USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    143143          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     144  USE iniprint_mod_h
    144145IMPLICIT NONE
    145146  !
    146147
    147148
    148   include "iniprint.h"
    149149  !
    150150  !
Note: See TracChangeset for help on using the changeset viewer.