Changeset 5314 for LMDZ6


Ignore:
Timestamp:
Nov 5, 2024, 12:37:47 PM (7 weeks ago)
Author:
abarral
Message:

Turn raddimlw.h radepsi.h radopt.h into modules
Move unused raddim.*.h to obsolete

Location:
LMDZ6/trunk/libf
Files:
8 deleted
3 edited
14 moved

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/physiq_mod.F90

    r5310 r5314  
    365365       USE nuage_params_mod_h
    366366       USE dimpft_mod_h, ONLY: nvm_lmdz
     367       USE radepsi_mod_h
     368       USE radopt_mod_h
    367369    IMPLICIT NONE
    368370    !>======================================================================
     
    564566    !
    565567    include "declare_STDlev.h"
    566     !
    567     !
    568     include "radepsi.h"
    569     include "radopt.h"
    570     !
    571     !
     568
    572569    INTEGER n
    573570    !ym      INTEGER npoints
  • LMDZ6/trunk/libf/phylmd/raddimlw_mod_h.f90

    r5313 r5314  
    1 !
    2 ! $Header$
    3 !
    4       INTEGER NUA
    5       PARAMETER (NUA=24)
    6       INTEGER NTRA
    7       PARAMETER (NTRA=15)
    8       INTEGER Ninter
    9       PARAMETER (Ninter=6)
    10       INTEGER NG1, NG1P1
    11       PARAMETER (NG1=2, NG1P1=NG1+1)
     1MODULE raddimlw_mod_h
     2  IMPLICIT NONE; PRIVATE
     3  PUBLIC nua, ntra, ninter, ng1, ng1p1
     4
     5  INTEGER NUA
     6  PARAMETER (NUA = 24)
     7  INTEGER NTRA
     8  PARAMETER (NTRA = 15)
     9  INTEGER Ninter
     10  PARAMETER (Ninter = 6)
     11  INTEGER NG1, NG1P1
     12  PARAMETER (NG1 = 2, NG1P1 = NG1 + 1)
     13END MODULE raddimlw_mod_h
  • LMDZ6/trunk/libf/phylmd/radepsi_mod_h.f90

    r5313 r5314  
    1 !
    2 ! $Header$
    3 !
    4       REAL(KIND=8) ZEELOG, ZEPSC, ZEPSCO, ZEPSCQ, ZEPSCT, ZEPSCW
    5       REAL(KIND=8) ZEPSEC, ZEPSCR
    6       PARAMETER (ZEELOG = 1.E-07) !1.e-10 (not good for 32-bit machines)
    7       PARAMETER (ZEPSC  = 1.E-20)
    8       PARAMETER (ZEPSCO = 1.E-10)
    9       PARAMETER (ZEPSCQ = 1.E-10)
    10       PARAMETER (ZEPSCT = 1.E-20)
    11       PARAMETER (ZEPSCW = 1.E-20)
    12       PARAMETER (ZEPSEC = 1.0E-12)
    13       PARAMETER (ZEPSCR = 1.0E-10)
    14 !
    15       REAL(KIND=8) REPSCT
    16       PARAMETER (REPSCT=1.0E-10)
     1MODULE radepsi_mod_h
     2  IMPLICIT NONE; PRIVATE
     3  PUBLIC zeelog, zepsc, zepsco, zepscq, zepsct, zepscw, zepsec, zepscr, repsct
     4
     5  REAL(KIND = 8) ZEELOG, ZEPSC, ZEPSCO, ZEPSCQ, ZEPSCT, ZEPSCW
     6  REAL(KIND = 8) ZEPSEC, ZEPSCR
     7  PARAMETER (ZEELOG = 1.E-07) !1.e-10 (not good for 32-bit machines)
     8  PARAMETER (ZEPSC = 1.E-20)
     9  PARAMETER (ZEPSCO = 1.E-10)
     10  PARAMETER (ZEPSCQ = 1.E-10)
     11  PARAMETER (ZEPSCT = 1.E-20)
     12  PARAMETER (ZEPSCW = 1.E-20)
     13  PARAMETER (ZEPSEC = 1.0E-12)
     14  PARAMETER (ZEPSCR = 1.0E-10)
     15
     16  REAL(KIND = 8) REPSCT
     17  PARAMETER (REPSCT = 1.0E-10)
     18END MODULE radepsi_mod_h
  • LMDZ6/trunk/libf/phylmd/radiation_AR4.f90

    r5296 r5314  
    310310SUBROUTINE swu_lmdar4(psct, pcldsw, ppmb, ppsol, prmu0, pfrac, ptave, pwv, &
    311311    paki, pcld, pclear, pdsig, pfact, prmu, psec, pud)
    312   USE clesphys_mod_h
     312USE radopt_mod_h
     313  USE radepsi_mod_h
     314    USE clesphys_mod_h
    313315  USE dimphy
    314316  USE radiation_ar4_param, ONLY: zpdh2o, zpdumg, zprh2o, zprumg, rtdh2o, &
     
    316318  USE yomcst_mod_h
    317319IMPLICIT NONE
    318   include "radepsi.h"
    319   include "radopt.h"
    320320
    321321
     
    699699    palbp, pcg, pcld, pclear, pcldsw, pdsig, pomega, poz, prmu, psec, ptau, &
    700700    pud, pwv, pqs, pfdown, pfup)
    701   USE dimphy
     701USE radepsi_mod_h
     702    USE dimphy
    702703  USE radiation_ar4_param, ONLY: rsun, rray
    703704  USE infotrac_phy, ONLY: type_trac
     
    706707
    707708  IMPLICIT NONE
    708   include "radepsi.h"
    709709
    710710  ! ------------------------------------------------------------------
     
    11951195    pdsig, prayl, psec, pcgaz, ppizaz, pray1, pray2, prefz, prj, prk, prmu0, &
    11961196    ptauaz, ptra1, ptra2)
    1197   USE dimphy
     1197USE radopt_mod_h
     1198  USE radepsi_mod_h
     1199    USE dimphy
    11981200  USE radiation_ar4_param, ONLY: taua, rpiza, rcga
    11991201  IMPLICIT NONE
    1200   include "radepsi.h"
    1201   include "radopt.h"
    12021202
    12031203  ! ------------------------------------------------------------------
     
    15241524    ptau, pcgaz, ppizaz, pray1, pray2, prefz, prj, prk, prmue, ptauaz, ptra1, &
    15251525    ptra2)
    1526   USE clesphys_mod_h
     1526USE radopt_mod_h
     1527  USE radepsi_mod_h
     1528    USE clesphys_mod_h
    15271529  USE dimphy
    15281530  IMPLICIT NONE
    1529   include "radepsi.h"
    1530   include "radopt.h"
    15311531
    15321532  ! ------------------------------------------------------------------
     
    21242124  ! IM  .              ptoplwdown,ptoplwdownclr)
    21252125    plwup, plwdn, plwup0, plwdn0)
    2126   USE dimphy
     2126USE raddimlw_mod_h
     2127    USE dimphy
    21272128  USE print_control_mod, ONLY: lunout
    21282129  USE yomcst_mod_h
    21292130IMPLICIT NONE
    2130   include "raddimlw.h"
    21312131
    21322132
     
    23112311! IM ctes ds clesphys.h   SUBROUTINE LWU(RCO2, RCH4, RN2O, RCFC11, RCFC12,
    23122312SUBROUTINE lwu_lmdar4(paer, pdp, ppmb, ppsol, poz, ptave, pview, pwv, pabcu)
    2313   USE clesphys_mod_h
     2313USE radopt_mod_h
     2314  USE radepsi_mod_h
     2315  USE raddimlw_mod_h
     2316    USE clesphys_mod_h
    23142317  USE dimphy
    23152318  USE radiation_ar4_param, ONLY: tref, rt1, raer, at, bt, oct
     
    23202323  USE yomcst_mod_h
    23212324IMPLICIT NONE
    2322   include "raddimlw.h"
    2323 
    2324   include "radepsi.h"
    2325   include "radopt.h"
     2325
    23262326
    23272327  ! PURPOSE.
     
    26802680SUBROUTINE lwbv_lmdar4(klim, pdp, pdt0, pemis, ppmb, ptl, ptave, pabcu, &
    26812681    pfluc, pbint, pbsui, pcts, pcntrb)
    2682   USE dimphy
     2682USE raddimlw_mod_h
     2683    USE dimphy
    26832684  USE yomcst_mod_h
    26842685IMPLICIT NONE
    2685   include "raddimlw.h"
    26862686
    26872687
     
    27672767SUBROUTINE lwc_lmdar4(klim, pcldld, pcldlu, pemis, pfluc, pbint, pbsuin, &
    27682768    pcts, pcntrb, pflux)
    2769   USE dimphy
     2769USE radopt_mod_h
     2770  USE radepsi_mod_h
     2771    USE dimphy
    27702772  IMPLICIT NONE
    2771   include "radepsi.h"
    2772   include "radopt.h"
    27732773
    27742774  ! PURPOSE.
     
    31433143SUBROUTINE lwb_lmdar4(pdt0, ptave, ptl, pb, pbint, pbsuin, pbsur, pbtop, &
    31443144    pdbsl, pga, pgb, pgasur, pgbsur, pgatop, pgbtop)
    3145   USE dimphy
     3145USE raddimlw_mod_h
     3146    USE dimphy
    31463147  USE radiation_ar4_param, ONLY: tintp, xp, ga, gb
    31473148  IMPLICIT NONE
    3148   include "raddimlw.h"
    31493149
    31503150  ! -----------------------------------------------------------------------
     
    45434543    pbtop, pdbsl, pemis, ppmb, ptave, pga, pgb, pgasur, pgbsur, pgatop, &
    45444544    pgbtop, pcntrb, pcts, pfluc)
    4545   USE dimphy
     4545USE raddimlw_mod_h
     4546    USE dimphy
    45464547  USE yomcst_mod_h
    45474548IMPLICIT NONE
    4548   include "raddimlw.h"
    45494549
    45504550
     
    46494649    pbsui, pbsur, pbtop, pdisd, pdisu, pemis, ppmb, pga, pgb, pgasur, pgbsur, &
    46504650    pgatop, pgbtop, pcts, pfluc)
    4651   USE dimphy
     4651USE radopt_mod_h
     4652  USE raddimlw_mod_h
     4653    USE dimphy
    46524654  IMPLICIT NONE
    4653   include "raddimlw.h"
    4654   include "radopt.h"
    46554655
    46564656  ! -----------------------------------------------------------------------
     
    49484948SUBROUTINE lwvd_lmdar4(kuaer, ktraer, pabcu, pdbdt, pga, pgb, pcntrb, pdisd, &
    49494949    pdisu)
    4950   USE dimphy
     4950USE raddimlw_mod_h
     4951    USE dimphy
    49514952  IMPLICIT NONE
    4952   include "raddimlw.h"
    49534953
    49544954  ! -----------------------------------------------------------------------
     
    51805180SUBROUTINE lwvn_lmdar4(kuaer, ktraer, pabcu, pdbsl, pga, pgb, padjd, padju, &
    51815181    pcntrb, pdbdt)
    5182   USE dimphy
     5182USE raddimlw_mod_h
     5183    USE dimphy
    51835184  USE radiation_ar4_param, ONLY: wg1
    51845185  IMPLICIT NONE
    5185   include "raddimlw.h"
    51865186
    51875187  ! -----------------------------------------------------------------------
     
    53735373END SUBROUTINE lwvn_lmdar4
    53745374SUBROUTINE lwtt_lmdar4(pga, pgb, puu, ptt)
    5375   USE dimphy
     5375USE raddimlw_mod_h
     5376    USE dimphy
    53765377  IMPLICIT NONE
    5377   include "raddimlw.h"
    53785378
    53795379  ! -----------------------------------------------------------------------
     
    55465546END SUBROUTINE lwtt_lmdar4
    55475547SUBROUTINE lwttm_lmdar4(pga, pgb, puu1, puu2, ptt)
    5548   USE dimphy
     5548USE raddimlw_mod_h
     5549    USE dimphy
    55495550  IMPLICIT NONE
    5550   include "raddimlw.h"
    55515551
    55525552  ! ------------------------------------------------------------------
  • LMDZ6/trunk/libf/phylmd/radopt_mod_h.f90

    r5313 r5314  
    1 !
    2 ! $Header$
    3 !
    4       LOGICAL LEVOIGT
    5       PARAMETER (LEVOIGT=.FALSE.)
    6       INTEGER NOVLP
    7       PARAMETER (NOVLP=1)
    8       INTEGER KAER
    9       PARAMETER (KAER=0)
     1MODULE radopt_mod_h
     2  IMPLICIT NONE; PRIVATE
     3  PUBLIC levoigt, novlp, kaer
     4
     5  LOGICAL LEVOIGT
     6  PARAMETER (LEVOIGT = .FALSE.)
     7  INTEGER NOVLP
     8  PARAMETER (NOVLP = 1)
     9  INTEGER KAER
     10  PARAMETER (KAER = 0)
     11END MODULE radopt_mod_h
  • LMDZ6/trunk/libf/phylmdiso/physiq_mod.F90

    r5310 r5314  
    438438    USE nuage_params_mod_h
    439439    USE dimpft_mod_h, ONLY: nvm_lmdz
     440    USE radepsi_mod_h
     441    USE radopt_mod_h
    440442    IMPLICIT NONE
    441443    !>======================================================================
     
    643645    !
    644646    include "declare_STDlev.h"
    645     !
    646     !
    647     include "radepsi.h"
    648     include "radopt.h"
    649     !
    650     !
     647
    651648    INTEGER n
    652649    !ym      INTEGER npoints
  • LMDZ6/trunk/libf/phylmdiso/raddimlw_mod_h.f90

    r5313 r5314  
    1 link ../phylmd/raddimlw.h
     1link ../phylmd/raddimlw_mod_h.f90
  • LMDZ6/trunk/libf/phylmdiso/radepsi_mod_h.f90

    r5313 r5314  
    1 link ../phylmd/radepsi.h
     1link ../phylmd/radepsi_mod_h.f90
  • LMDZ6/trunk/libf/phylmdiso/radopt_mod_h.f90

    r5313 r5314  
    1 link ../phylmd/radopt.h
     1link ../phylmd/radopt_mod_h.f90
Note: See TracChangeset for help on using the changeset viewer.