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

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

Location:
LMDZ6/trunk/libf/dyn3dmem
Files:
24 edited

Legend:

Unmodified
Added
Removed

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

    r5268 r5282  
    66SUBROUTINE abort_gcm(modname, message, ierr)
    77
     8  USE iniprint_mod_h
    89  USE IOIPSL
    910
    1011  USE parallel_lmdz
    11   INCLUDE "iniprint.h"
    1212
    1313  !

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

    r5281 r5282  
    3030
    3131
    32    include "description.h"
    33 !   include "iniprint.h"
     32   !   include "iniprint.h"
    3433
    3534   !---------------------------------------------------------------------------

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

    r5281 r5282  
    1010  !             vQ..A=Cp T + L * ...
    1111
     12  USE iniprint_mod_h
    1213  USE comgeom2_mod_h
    1314  USE IOIPSL
    … …  
    2728
    2829
    29   include "iniprint.h"
    3030
    3131  !====================================================================

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

    r5272 r5282  
    6868    CALL allocate_u(dqfi,llm,nqtot,d)
    6969    CALL allocate_u(dpfi,d)
    70  
     70
    7171  END SUBROUTINE call_calfis_allocate
    72  
    73  
     72
     73
    7474  SUBROUTINE call_calfis(itau,lafin,ucov_dyn,vcov_dyn,teta_dyn,masse_dyn,ps_dyn, &
    7575                         phis_dyn,q_dyn,flxw_dyn)
    … …  
    9494  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS, CPPKEY_DEBUGIO
    9595  USE strings_mod, ONLY: int2str
    96  
     96  USE iniprint_mod_h
    9797  IMPLICIT NONE
    98     INCLUDE "iniprint.h"
    9998
    10099    INTEGER,INTENT(IN) :: itau ! (time) iteration step number

  • LMDZ6/trunk/libf/dyn3dmem/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
    … …  
    4445
    4546
    46   include "iniprint.h"
    4747
    4848  !   local:

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

    r5281 r5282  
    66! Purpose: Initial state reading.
    77!-------------------------------------------------------------------------------
     8  USE iniprint_mod_h
    89  USE comgeom_mod_h
    910  USE parallel_lmdz
    … …  
    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/dyn3dmem/dynredem_loc.f90

    r5281 r5282  
    2727          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
    2828  USE comgeom_mod_h
     29  USE iniprint_mod_h
    2930  IMPLICIT NONE
    3031
    31   include "description.h"
    32   include "iniprint.h"
    33 !===============================================================================
     32  !===============================================================================
    3433! Arguments:
    3534  CHARACTER(LEN=*), INTENT(IN) :: fichnom          !--- FILE NAME
    … …  
    180179
    181180  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    182 USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
     181  USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    183182          ip1jmi1, ijp1llm, ijmllm, mvar, jcfil, jcfllm
     183  USE iniprint_mod_h
    184184IMPLICIT NONE
    185185
    186186
    187   include "description.h"
    188   include "iniprint.h"
    189 !===============================================================================
     187  !===============================================================================
    190188! Arguments:
    191189  CHARACTER(LEN=*), INTENT(IN) :: fichnom              !-- FILE NAME

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

    r5281 r5282  
    44!=======================================================================
    55SUBROUTINE friction_loc(ucov,vcov,pdt)
     6  USE iniprint_mod_h
    67  USE comgeom2_mod_h
    78  USE parallel_lmdz
    … …  
    2728
    2829
    29   include "iniprint.h"
    3030  include "academic.h"
    3131

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

    r5281 r5282  
    1313!  USE mod_interface_dyn_phys, ONLY: init_interface_dyn_phys
    1414!#endif
     15  USE iniprint_mod_h
    1516  USE comgeom_mod_h
    1617  USE comdissnew_mod_h
    … …  
    6263  !   Declarations:
    6364  !   -------------
    64   include "description.h"
    65   include "iniprint.h"
    6665  include "tracstoke.h"
    6766
    … …  
    122121  abort_message = 'last timestep reached'
    123122  modname = 'gcm'
    124   descript = 'Run GCM LMDZ'
    125123  lafin    = .FALSE.
    126124  dynhist_file = 'dyn_hist'

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

    r5281 r5282  
    44SUBROUTINE iniacademic_loc(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
    … …  
    3940
    4041  include "academic.h"
    41   include "iniprint.h"
    4242
    4343  !   Arguments:

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

    r5281 r5282  
    55
    66  ! This routine needs IOIPSL
    7    USE comgeom_mod_h
     7   USE iniprint_mod_h
     8  USE comgeom_mod_h
    89  USE IOIPSL
    910
    … …  
    5051
    5152
    52   include "description.h"
    53   include "iniprint.h"
    54 
    5553  !   Arguments
    5654  !

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

    r5281 r5282  
    77
    88  ! This routine needs IOIPSL
    9    USE comgeom_mod_h
     9   USE iniprint_mod_h
     10  USE comgeom_mod_h
    1011  USE IOIPSL
    1112
    … …  
    5051  !   Declarations
    5152
    52 
    53   include "description.h"
    54   include "iniprint.h"
    5553
    5654  !   Arguments

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

    r5281 r5282  
    55
    66  ! This routine needs IOIPSL
    7    USE comgeom_mod_h
     7   USE iniprint_mod_h
     8  USE comgeom_mod_h
    89  USE IOIPSL
    910
    … …  
    4748  !   Declarations
    4849
    49 
    50   include "description.h"
    51   include "iniprint.h"
    5250
    5351  !   Arguments

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

    r5281 r5282  
    55        (  nq,vcovm1,ucovm1,tetam1,psm1,massem1, &
    66        dv,du,dteta,dq,dp,vcov,ucov,teta,q,ps0,masse,phis) !,finvmaold)
     7  USE iniprint_mod_h
    78  USE comgeom_mod_h
    89  USE parallel_lmdz
    … …  
    4041
    4142
    42   include "iniprint.h"
    4343
    4444  !   Arguments:

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

    r5281 r5282  
    22        masse0,phis0,q0,time_0)
    33
    4    USE comgeom_mod_h
     4   USE iniprint_mod_h
     5  USE comgeom_mod_h
    56  USE comdissnew_mod_h
    67   USE misc_mod
    … …  
    7778  !   Declarations:
    7879  !   -------------
    79   include "description.h"
    80   include "iniprint.h"
    8180  include "academic.h"
    8281

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

    r5272 r5282  
    8383 
    8484    subroutine init_parallel
    85     USE vampir
     85    USE iniprint_mod_h
     86      USE vampir
    8687    USE lmdz_mpi
    8788    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    … …  
    9192
    9293
    93       INCLUDE "iniprint.h"
    9494
    9595      integer :: ierr
    … …  
    648648
    649649    subroutine Gather_Field(Field,ij,ll,rank)
     650    USE iniprint_mod_h
    650651    USE lmdz_mpi
    651652    USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    … …  
    655656
    656657
    657     INCLUDE "iniprint.h"
    658658      INTEGER :: ij,ll,rank
    659659      REAL, dimension(ij,ll) :: Field

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

    r5272 r5282  
    33!
    44SUBROUTINE qminimum_loc( q,nqtot,deltap )
     5  USE iniprint_mod_h
    56  USE parallel_lmdz
    67  USE infotrac, ONLY: niso, ntiso, iqIsoPha, tracers, addPhase, &
    … …  
    1718
    1819
    19   include "iniprint.h"
    2020  !
    2121  INTEGER :: nqtot ! CRisi: on remplace nq par nqtot

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

    r5281 r5282  
    2626  !
    2727  !=======================================================================
     28  USE iniprint_mod_h
    2829  USE comgeom_mod_h
    2930  USE parallel_lmdz
    … …  
    4142
    4243
    43   include "iniprint.h"
    4444
    4545  !   Arguments:

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

    r5281 r5282  
    33!
    44SUBROUTINE top_bound_loc(vcov,ucov,teta,masse,dt)
     5  USE iniprint_mod_h
    56  USE comgeom2_mod_h
    67  USE comdissipn_mod_h
    … …  
    5859
    5960
    60   INCLUDE "iniprint.h"
    6161
    6262  !   Arguments:

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

    r5281 r5282  
    1313  !
    1414  !   --------------------------------------------------------------------
     15  USE iniprint_mod_h
    1516  USE parallel_lmdz
    1617  USE infotrac, ONLY : nqtot,tracers, & ! CRisi                 &
    … …  
    2324
    2425
    25   include "iniprint.h"
    2626  !
    2727  !
    … …  
    887887  !
    888888  !   --------------------------------------------------------------------
     889  USE iniprint_mod_h
    889890  USE parallel_lmdz
    890891  USE vlz_mod
    … …  
    899900
    900901
    901   include "iniprint.h"
    902902  !
    903903  !

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

    r5281 r5282  
    422422  !
    423423  !   --------------------------------------------------------------------
     424  USE iniprint_mod_h
    424425  USE comgeom_mod_h
    425426  USE parallel_lmdz
    … …  
    434435
    435436
    436   include "iniprint.h"
    437437  !
    438438  !

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

    r5281 r5282  
    55     &                           masse,ps,phis)
    66
     7      USE iniprint_mod_h
    78      USE comgeom_mod_h
    89      USE lmdz_xios
    … …  
    4041
    4142
    42       include "description.h"
    43       include "iniprint.h"
    44 
    45 !
     43      !
    4644!   Arguments
    4745!

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

    r5281 r5282  
    66
    77  ! This routine needs IOIPSL
     8  USE iniprint_mod_h
    89  USE comgeom_mod_h
    910  USE ioipsl
    … …  
    4950
    5051
    51   include "description.h"
    52   include "iniprint.h"
    53 
    5452  !
    5553  !   Arguments

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

    r5281 r5282  
    66
    77  ! This routine needs IOIPSL
     8  USE iniprint_mod_h
    89  USE comgeom_mod_h
    910  USE ioipsl
    … …  
    4950
    5051
    51   include "description.h"
    52   include "iniprint.h"
    53 
    5452  !
    5553  !   Arguments
Note: See TracChangeset for help on using the changeset viewer.