Changeset 3319
- Timestamp:
- Apr 30, 2018, 5:45:16 PM (7 years ago)
- Location:
- LMDZ6/trunk/libf/phylmd
- Files:
-
- 9 edited
-
StratAer/aerophys.F90 (modified) (1 diff)
-
aero_mod.F90 (modified) (1 diff)
-
calcul_fluxs_mod.F90 (modified) (1 diff)
-
cv3_crit.F90 (modified) (1 diff)
-
freinage.F90 (modified) (1 diff)
-
indice_sol_mod.F90 (modified) (1 diff)
-
radiation_ar4_param.F90 (modified) (1 diff)
-
suphel.F90 (modified) (1 diff)
-
surface_data.F90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/StratAer/aerophys.F90
r2964 r3319 2 2 ! 3 3 MODULE aerophys 4 ! 5 IMPLICIT NONE 4 6 ! 5 7 REAL,PARAMETER :: ropx=1500.0 ! default aerosol particle mass density [kg/m3] -
LMDZ6/trunk/libf/phylmd/aero_mod.F90
r3202 r3319 2 2 ! 3 3 MODULE aero_mod 4 5 IMPLICIT NONE 6 4 7 ! Declaration des indices pour les aerosols 5 8 -
LMDZ6/trunk/libf/phylmd/calcul_fluxs_mod.F90
r3102 r3319 4 4 MODULE calcul_fluxs_mod 5 5 6 IMPLICIT NONE 6 7 7 8 CONTAINS -
LMDZ6/trunk/libf/phylmd/cv3_crit.F90
r1992 r3319 10 10 ! ************************************************************** 11 11 12 IMPLICIT NONE 12 13 13 14 include "cv3param.h" -
LMDZ6/trunk/libf/phylmd/freinage.F90
r2952 r3319 5 5 tt,veget,lai, height,ypaprs,ypplay,drag_pro,d_u,d_v) 6 6 7 8 7 !ONLINE: 9 8 use dimphy, only: klon, klev 10 9 ! USE control, ONLY: nvm 11 10 ! USE indice_sol_mod, only : nvm_orch 11 12 IMPLICIT NONE 12 13 13 14 -
LMDZ6/trunk/libf/phylmd/indice_sol_mod.F90
r2952 r3319 1 1 MODULE indice_sol_mod 2 3 IMPLICIT NONE 4 2 5 INTEGER, PARAMETER :: nbsrf = 4 ! nombre de sous-fractions pour une maille 3 6 INTEGER, PARAMETER :: is_ter=1, is_lic=2, is_oce = 3, is_sic=4 -
LMDZ6/trunk/libf/phylmd/radiation_ar4_param.F90
r1933 r3319 1 1 MODULE radiation_ar4_param 2 3 IMPLICIT NONE 2 4 3 5 REAL(KIND=8), parameter :: ZPDH2O = 0.8 -
LMDZ6/trunk/libf/phylmd/suphel.F90
r2136 r3319 3 3 4 4 SUBROUTINE suphel 5 6 IMPLICIT NONE 5 7 6 8 include "YOMCST.h" -
LMDZ6/trunk/libf/phylmd/surface_data.F90
r3102 r3319 3 3 ! 4 4 MODULE surface_data 5 6 IMPLICIT NONE 5 7 6 8 REAL, PARAMETER :: calice=1.0/(5.1444e+06*0.15)
Note: See TracChangeset
for help on using the changeset viewer.
