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

Put dimensions.h and paramet.h into modules

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dyn3d_common/gr_u_scal.f90

    r5136 r5159  
    44  !%W%    %G%
    55  !=======================================================================
    6   !
     6
    77  !   Author:    Frederic Hourdin      original: 11/11/92
    88  !   -------
    9   !
     9
    1010  !   Subject:
    1111  !   ------
    12   !
     12
    1313  !   Method:
    1414  !   --------
    15   !
     15
    1616  !   Interface:
    1717  !   ----------
    18   !
     18
    1919  !  Input:
    2020  !  ------
    21   !
     21
    2222  !  Output:
    2323  !  -------
    24   !
     24
    2525  !=======================================================================
    2626  USE lmdz_ssum_scopy, ONLY: scopy
    2727  USE lmdz_comgeom
    2828
     29  USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
     30  USE lmdz_paramet
    2931  IMPLICIT NONE
    3032  !-----------------------------------------------------------------------
    … …  
    3234  !   ---------------
    3335
    34   INCLUDE "dimensions.h"
    35   INCLUDE "paramet.h"
     36
     37
    3638
    3739  !   Arguments:
Note: See TracChangeset for help on using the changeset viewer.