Ignore:
Timestamp:
Aug 2, 2024, 2:12:03 PM (3 months ago)
Author:
abarral
Message:

Add missing klon on strataer_emiss_mod.F90
Correct various missing explicit declarations
Replace tabs by spaces (tabs are not part of the fortran charset)
Continue cleaning modules
Removed unused arguments and variables

File:
1 moved

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_compar1d.f90

    r5157 r5158  
     1MODULE lmdz_compar1d
     2  IMPLICIT NONE; PRIVATE
     3  PUBLIC  nat_surf, tsurf, beta_surf, rugos, rugosh, &
     4          xqsol, qsurf, psurf, zsurf, albedo, time, time_ini, xlat, xlon, airefi, &
     5          wtsurf, wqsurf, restart_runoff, xagesno, qsolinp, zpicinp, &
     6          forcing_type, tend_u, tend_v, tend_w, tend_t, tend_q, tend_rayo, &
     7          nudge_u, nudge_v, nudge_w, nudge_t, nudge_q, &
     8          iflag_nudge, snowmass, &
     9          restart, ok_old_disvert, &
     10          tadv, tadvv, tadvh, qadv, qadvv, qadvh, thadv, thadvv, thadvh, &
     11          trad, forc_omega, forc_u, forc_v, forc_w, forc_geo, forc_ustar, &
     12          nudging_u, nudging_v, nudging_t, nudging_qv, nudging_w, &
     13          p_nudging_u, p_nudging_v, p_nudging_t, p_nudging_qv, p_nudging_w
    114
    2 ! $Id: compar1d.h 2010-08-04 17:02:56Z lahellec $
     15  INTEGER :: forcing_type
     16  INTEGER :: tend_u, tend_v, tend_w, tend_t, tend_q, tend_rayo
     17  REAL :: nudge_u, nudge_v, nudge_w, nudge_t, nudge_q
     18  INTEGER :: iflag_nudge
     19  REAL :: nat_surf
     20  REAL :: tsurf
     21  REAL :: beta_surf
     22  REAL :: rugos
     23  REAL :: rugosh
     24  REAL :: xqsol(1:2)
     25  REAL :: qsurf
     26  REAL :: psurf
     27  REAL :: zsurf
     28  REAL :: albedo
     29  REAL :: snowmass
    330
    4       INTEGER :: forcing_type
    5       INTEGER :: tend_u,tend_v,tend_w,tend_t,tend_q,tend_rayo
    6       REAL :: nudge_u,nudge_v,nudge_w,nudge_t,nudge_q
    7       INTEGER :: iflag_nudge
    8       REAL :: nat_surf
    9       REAL :: tsurf
    10       REAL :: beta_surf
    11       REAL :: rugos
    12       REAL :: rugosh
    13       REAL :: xqsol(1:2)
    14       REAL :: qsurf
    15       REAL :: psurf
    16       REAL :: zsurf
    17       REAL :: albedo
    18       REAL :: snowmass
     31  REAL :: time
     32  REAL :: time_ini
     33  REAL :: xlat
     34  REAL :: xlon
     35  REAL :: airefi
     36  REAL :: wtsurf
     37  REAL :: wqsurf
     38  REAL :: restart_runoff
     39  REAL :: xagesno
     40  REAL :: qsolinp
     41  REAL :: zpicinp
    1942
    20       REAL :: time
    21       REAL :: time_ini
    22       REAL :: xlat
    23       REAL :: xlon
    24       REAL :: airefi
    25       REAL :: wtsurf
    26       REAL :: wqsurf
    27       REAL :: restart_runoff
    28       REAL :: xagesno
    29       REAL :: qsolinp
    30       REAL :: zpicinp
     43  LOGICAL :: restart
     44  LOGICAL :: ok_old_disvert
    3145
    32       LOGICAL :: restart
    33       LOGICAL :: ok_old_disvert
     46  ! Pour les forcages communs: ces entiers valent 0 ou 1
     47  ! tadv= advection tempe, tadvv= adv tempe verticale, tadvh= adv tempe horizontale
     48  ! idem pour l advection en theta
     49  ! qadv= advection q, qadvv= adv q verticale, qadvh= adv q horizontale
     50  ! trad= 0 (rayonnement actif) ou 1 (prescrit par tend_rad) ou adv (prescir et contenu dans les tadv)
     51  ! forcages en omega, w, vent geostrophique ou ustar
     52  ! Parametres de nudging en u,v,t,q valent 0 ou 1 ou le temps de nudging
    3453
    35 ! Pour les forcages communs: ces entiers valent 0 ou 1
    36 ! tadv= advection tempe, tadvv= adv tempe verticale, tadvh= adv tempe horizontale
    37 ! idem pour l advection en theta
    38 ! qadv= advection q, qadvv= adv q verticale, qadvh= adv q horizontale
    39 ! trad= 0 (rayonnement actif) ou 1 (prescrit par tend_rad) ou adv (prescir et contenu dans les tadv)
    40 ! forcages en omega, w, vent geostrophique ou ustar
    41 ! Parametres de nudging en u,v,t,q valent 0 ou 1 ou le temps de nudging
    42 
    43       INTEGER :: tadv, tadvv, tadvh, qadv, qadvv, qadvh, thadv, thadvv, thadvh, trad
    44       INTEGER :: forc_omega, forc_u, forc_v, forc_w, forc_geo, forc_ustar
    45       real    :: nudging_u, nudging_v, nudging_w, nudging_t, nudging_qv
    46       real    :: p_nudging_u, p_nudging_v, p_nudging_w, p_nudging_t, p_nudging_qv
    47       common/com_par1d/                                                 &
    48        nat_surf,tsurf,beta_surf,rugos,rugosh,                           &
    49        xqsol,qsurf,psurf,zsurf,albedo,time,time_ini,xlat,xlon,airefi,   &
    50        wtsurf,wqsurf,restart_runoff,xagesno,qsolinp,zpicinp,            &
    51        forcing_type,tend_u,tend_v,tend_w,tend_t,tend_q,tend_rayo,       &
    52        nudge_u,nudge_v,nudge_w,nudge_t,nudge_q,                         &
    53        iflag_nudge,snowmass,                                            &
    54        restart,ok_old_disvert,                                          &
    55        tadv, tadvv, tadvh, qadv, qadvv, qadvh, thadv, thadvv, thadvh,   &
    56        trad, forc_omega, forc_u, forc_v, forc_w, forc_geo, forc_ustar,  &
    57        nudging_u, nudging_v, nudging_t, nudging_qv, nudging_w,          &
    58        p_nudging_u, p_nudging_v, p_nudging_t, p_nudging_qv, p_nudging_w
    59 
    60 !$OMP THREADPRIVATE(/com_par1d/)
     54  INTEGER :: tadv, tadvv, tadvh, qadv, qadvv, qadvh, thadv, thadvv, thadvh, trad
     55  INTEGER :: forc_omega, forc_u, forc_v, forc_w, forc_geo, forc_ustar
     56  REAL :: nudging_u, nudging_v, nudging_w, nudging_t, nudging_qv
     57  REAL :: p_nudging_u, p_nudging_v, p_nudging_w, p_nudging_t, p_nudging_qv
    6158
    6259
     60  !$OMP THREADPRIVATE(nat_surf, tsurf, beta_surf, rugos, rugosh, &
     61  !$OMP      xqsol, qsurf, psurf, zsurf, albedo, time, time_ini, xlat, xlon, airefi, &
     62  !$OMP      wtsurf, wqsurf, restart_runoff, xagesno, qsolinp, zpicinp, &
     63  !$OMP      forcing_type, tend_u, tend_v, tend_w, tend_t, tend_q, tend_rayo, &
     64  !$OMP      nudge_u, nudge_v, nudge_w, nudge_t, nudge_q, &
     65  !$OMP      iflag_nudge, snowmass, &
     66  !$OMP      restart, ok_old_disvert, &
     67  !$OMP      tadv, tadvv, tadvh, qadv, qadvv, qadvh, thadv, thadvv, thadvh, &
     68  !$OMP      trad, forc_omega, forc_u, forc_v, forc_w, forc_geo, forc_ustar, &
     69  !$OMP      nudging_u, nudging_v, nudging_t, nudging_qv, nudging_w, &
     70  !$OMP      p_nudging_u, p_nudging_v, p_nudging_t, p_nudging_qv, p_nudging_w)
    6371
    64 
    65 
    66 
    67 
    68 
    69 
    70 
    71 
     72END MODULE lmdz_compar1d
Note: See TracChangeset for help on using the changeset viewer.