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

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

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

Legend:

Unmodified
Added
Removed

  • 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
Note: See TracChangeset for help on using the changeset viewer.