Ignore:
Timestamp:
Aug 2, 2024, 9:58:25 PM (3 months ago)
Author:
abarral
Message:

Put dimensions.h and paramet.h into modules

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dyn3dmem/fluxstokenc_p.f90

    r5137 r5159  
    11! $Id: caladvtrac_p.F 1299 2010-01-20 14:27:21Z fairhead $
    22
    3 !
    4 !
     3
     4
    55SUBROUTINE fluxstokenc_p(pbaru, pbarv, masse, teta, phi)
    66  USE parallel_lmdz
    … …  
    1414  USE lmdz_tracstoke
    1515
     16  USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     17  USE lmdz_paramet
    1618  IMPLICIT NONE
    17   !
     19
    1820  ! Auteurs:   F.Hourdin , P.Le Van, F.Forget, F.Codron
    19   !
    20   !=======================================================================
    21   !
    22   !   Shema de  Van Leer
    23   !
     21
    2422  !=======================================================================
    2523
    26   INCLUDE "dimensions.h"
    27   INCLUDE "paramet.h"
     24  !   Shema de  Van Leer
     25
     26  !=======================================================================
     27
     28
     29
    2830
    2931  !   Arguments:
Note: See TracChangeset for help on using the changeset viewer.