Ignore:
Timestamp:
Jul 29, 2024, 5:47:53 PM (4 months ago)
Author:
abarral
Message:

Put YOEGWD.h, FCTTRE.h into modules

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/orografi.F90

    r5117 r5143  
    118118
    119119  USE dimphy
     120  USE lmdz_YOEGWD, ONLY: GFRCRIT, GKWAKE, GRCRIT, GVCRIT, GKDRAG, GKLIFT, GHMAX, GRAHILO, GSIGCR, NKTOPG, NSTRA, GSSEC, GTSEC, GVSEC, &
     121          GWD_RANDO_RUWMAX, gwd_rando_sat, GWD_FRONT_RUWMAX, gwd_front_sat
     122  USE lmdz_libmath, ONLY: ismax, ismin
     123
    120124  IMPLICIT NONE
    121125
    … …  
    148152  ! implicit LOGICAL (l)
    149153
    150   ! method.
    151   ! -------
    152 
    153   ! externals.
    154   ! ----------
    155   INTEGER ismin, ismax
    156   EXTERNAL ismin, ismax
    157 
    158   ! reference.
    159   ! ----------
    160 
    161154  ! author.
    162155  ! -------
    … …  
    167160
    168161  include "YOMCST.h"
    169   include "YOEGWD.h"
    170162  ! -----------------------------------------------------------------------
    171163
    … …  
    385377  ! -----------------------------------------------------------------------
    386378  USE dimphy
     379  USE lmdz_YOEGWD, ONLY: GFRCRIT, GKWAKE, GRCRIT, GVCRIT, GKDRAG, GKLIFT, GHMAX, GRAHILO, GSIGCR, NKTOPG, NSTRA, GSSEC, GTSEC, GVSEC, &
     380          GWD_RANDO_RUWMAX, gwd_rando_sat, GWD_FRONT_RUWMAX, gwd_front_sat
     381
    387382  IMPLICIT NONE
    388383
    389384  include "YOMCST.h"
    390   include "YOEGWD.h"
    391385
    392386  ! -----------------------------------------------------------------------
    … …  
    820814  ! -----------------------------------------------------------------------
    821815  USE dimphy
     816  USE lmdz_YOEGWD, ONLY: GFRCRIT, GKWAKE, GRCRIT, GVCRIT, GKDRAG, GKLIFT, GHMAX, GRAHILO, GSIGCR, NKTOPG, NSTRA, GSSEC, GTSEC, GVSEC, &
     817          GWD_RANDO_RUWMAX, gwd_rando_sat, GWD_FRONT_RUWMAX, gwd_front_sat
     818
    822819  IMPLICIT NONE
    823820  include "YOMCST.h"
    824   include "YOEGWD.h"
    825821
    826822  ! -----------------------------------------------------------------------
    … …  
    942938  ! -----------------------------------------------------------------------
    943939  USE dimphy
     940  USE lmdz_YOEGWD, ONLY: GFRCRIT, GKWAKE, GRCRIT, GVCRIT, GKDRAG, GKLIFT, GHMAX, GRAHILO, GSIGCR, NKTOPG, NSTRA, GSSEC, GTSEC, GVSEC, &
     941          GWD_RANDO_RUWMAX, gwd_rando_sat, GWD_FRONT_RUWMAX, gwd_front_sat
     942
    944943  IMPLICIT NONE
    945944
    946945  include "YOMCST.h"
    947   include "YOEGWD.h"
    948946
    949947  ! -----------------------------------------------------------------------
    … …  
    12731271  USE dimphy
    12741272  USE lmdz_abort_physic, ONLY: abort_physic
     1273  USE lmdz_YOEGWD, ONLY: GFRCRIT, GKWAKE, GRCRIT, GVCRIT, GKDRAG, GKLIFT, GHMAX, GRAHILO, GSIGCR, NKTOPG, NSTRA, GSSEC, GTSEC, GVSEC, &
     1274          GWD_RANDO_RUWMAX, gwd_rando_sat, GWD_FRONT_RUWMAX, gwd_front_sat
     1275
    12751276  IMPLICIT NONE
    12761277
    12771278  include "YOMCST.h"
    1278   include "YOEGWD.h"
    12791279  ! -----------------------------------------------------------------------
    12801280
    … …  
    15151515  USE lmdz_phys_para
    15161516  USE lmdz_grid_phy
     1517  USE lmdz_YOEGWD, ONLY: GFRCRIT, GKWAKE, GRCRIT, GVCRIT, GKDRAG, GKLIFT, GHMAX, GRAHILO, GSIGCR, NKTOPG, NSTRA, GSSEC, GTSEC, GVSEC, &
     1518          GWD_RANDO_RUWMAX, gwd_rando_sat, GWD_FRONT_RUWMAX, gwd_front_sat
    15171519  ! USE parallel
    15181520
    … …  
    15591561  ! ------------------------------------------------------------------
    15601562  IMPLICIT NONE
    1561 
    1562   ! -----------------------------------------------------------------
    1563   include "YOEGWD.h"
    1564   ! ----------------------------------------------------------------
    15651563
    15661564  INTEGER nlon, nlev, jk
Note: See TracChangeset for help on using the changeset viewer.