Ignore:
Timestamp:
Oct 28, 2024, 2:12:55 PM (5 weeks ago)
Author:
abarral
Message:

Turn alpale.h alpale.f90 YOETHF.h into modules

Location:
LMDZ6/trunk/libf/phylmdiso
Files:
1 deleted
9 edited
2 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmdiso/alpale_mod.f90

    r5283 r5284  
    1 link ../phylmd/alpale.f90
     1link ../phylmd/alpale_mod.f90

  • LMDZ6/trunk/libf/phylmdiso/concvl.F90

    r5283 r5284  
    7777          , RALPD, RBETD, RGAMD
    7878  USE conema3_mod_h
     79  USE yoethf_mod_h
    7980  IMPLICIT NONE
    8081! ======================================================================
    … …  
    309310!$OMP THREADPRIVATE(itap, igout)
    310311  include "YOMCST2.h"
    311   include "YOETHF.h"
    312312  include "FCTTRE.h"
    313313

  • LMDZ6/trunk/libf/phylmdiso/cv3_enthalpmix.F90

    r5276 r5284  
    3232          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    3333          , RALPD, RBETD, RGAMD
     34USE yoethf_mod_h
    3435IMPLICIT NONE
    3536  ! ==============================================================
    … …  
    4243
    4344  ! ===============================================================
    44 
    45   include "YOETHF.h"
    4645
    4746  include "FCTTRE.h"

  • LMDZ6/trunk/libf/phylmdiso/cv3_estatmix.F90

    r5276 r5284  
    3333          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    3434          , RALPD, RBETD, RGAMD
     35USE yoethf_mod_h
    3536IMPLICIT NONE
    3637  ! ==============================================================
    … …  
    4344
    4445  ! ===============================================================
    45 
    46   include "YOETHF.h"
    4746
    4847  include "FCTTRE.h"

  • LMDZ6/trunk/libf/phylmdiso/isotopes_routines_mod.F90

    r5282 r5284  
    1298112981    USE isotrac_mod, ONLY: izone_cont,index_zone,index_iso
    1298212982#endif
     12983USE yoethf_mod_h
    1298312984        USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    1298412985          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    … …  
    1300013001        ! commun aux dfférentes sous-surfaces.
    1300113002
    13002 INCLUDE "YOETHF.h"
    1300313003INCLUDE "FCTTRE.h"
    1300413004!
    … …  
    1356513565&       bassin_map
    1356613566#endif
     13567USE yoethf_mod_h
    1356713568        USE yomcst_mod_h, ONLY: RPI, RCLUM, RHPLA, RKBOL, RNAVO                   &
    1356813569          , RDAY, REA, REPSM, RSIYEA, RSIDAY, ROMEGA                  &
    … …  
    1357913580implicit none
    1358013581
    13581 INCLUDE "YOETHF.h"
    1358213582INCLUDE "FCTTRE.h"
    1358313583
    … …  
    1449214492#endif
    1449314493
     14494USE yoethf_mod_h
    1449414495        USE dimensions_mod, ONLY: iim, jjm, llm, ndm
    1449514496USE paramet_mod_h, ONLY: iip1, iip2, iip3, jjp1, llmp1, llmp2, llmm1, kftd, ip1jm, ip1jmp1, &
    … …  
    1450914510implicit none
    1451014511
    14511 INCLUDE "YOETHF.h"
    1451214512INCLUDE "FCTTRE.h"
    1451314513

  • LMDZ6/trunk/libf/phylmdiso/lmdz_lscp_old.F90

    r5274 r5284  
    8080          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    8181          , RALPD, RBETD, RGAMD
     82  USE yoethf_mod_h
    8283  IMPLICIT none
    8384  !======================================================================
    … …  
    324325  REAL zzz
    325326
    326   include "YOETHF.h"
    327327  include "FCTTRE.h"
    328328  fallvc (zzz) = 3.29/2.0 * ((zzz)**0.16) * ffallv_con

  • LMDZ6/trunk/libf/phylmdiso/phyetat0_mod.F90

    r5282 r5284  
    7474          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    7575          , RALPD, RBETD, RGAMD
     76  USE alpale_mod
    7677IMPLICIT none
    7778  !======================================================================
    … …  
    7980  ! Objet: Lecture de l'etat initial pour la physique
    8081  !======================================================================
    81   include "alpale.h"
    8282  include "compbl.h"
    8383

  • LMDZ6/trunk/libf/phylmdiso/phyredem.F90

    r5282 r5284  
    4646#endif
    4747#endif
    48   USE clesphys_mod_h
     48USE alpale_mod
     49    USE clesphys_mod_h
    4950  USE carbon_cycle_mod, ONLY : carbon_cycle_cpl, co2_send, carbon_cycle_rad, RCO2_glo
    5051  USE indice_sol_mod, ONLY: nbsrf, is_oce, is_sic, is_ter, is_lic, epsfra
    … …  
    5657
    5758  IMPLICIT none
    58   include "alpale.h"
    5959  include "compbl.h"
    6060  !======================================================================
    … …  
    512512    use isotrac_mod, only: index_zone,index_iso,strtrac
    513513#endif
     514USE alpale_mod
    514515      USE clesphys_mod_h
    515516USE dimsoil_mod_h, ONLY: nsoilmx
    … …  
    517518
    518519        ! equivalent isotopique de phyredem
    519 INCLUDE "alpale.h"
    520520INCLUDE "compbl.h"
    521521      ! inputs

  • LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

    r5283 r5284  
    445445       USE clesphys_mod_h
    446446       USE conema3_mod_h
     447       USE alpale_mod
     448    USE yoethf_mod_h
    447449
    448450    IMPLICIT NONE
    … …  
    498500
    499501    include "regdim.h"
    500     include "alpale.h"
    501502    include "dimpft.h"
    502503    !======================================================================
    … …  
    12931294                 ! the ozone fields, old method.
    12941295
    1295     include "YOETHF.h"
    12961296    include "FCTTRE.h"
    12971297    !IM 100106 BEG : pouvoir sortir les ctes de la physique

  • LMDZ6/trunk/libf/phylmdiso/reevap.F90

    r5274 r5284  
    2727          , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
    2828          , RALPD, RBETD, RGAMD
     29    USE yoethf_mod_h
    2930IMPLICIT none
    3031    !>======================================================================
    … …  
    4344    !---Propri\'et\'es du thermiques au LCL
    4445
    45     include "YOETHF.h"
    4646    include "FCTTRE.h"
    4747    !IM 100106 BEG : pouvoir sortir les ctes de la physique

  • LMDZ6/trunk/libf/phylmdiso/yoethf_mod_h.f90

    r5283 r5284  
    1 link ../phylmd/YOETHF.h
     1link ../phylmd/yoethf_mod_h.f90
Note: See TracChangeset for help on using the changeset viewer.