- Timestamp:
- Jul 24, 2024, 2:54:37 PM (2 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/phylmd/inlandsis/sisvat_zag.f90
r5105 r5116 63 63 ! + ----- 64 64 65 integer:: isagrb(knonv) ! 2nd Layer History66 real:: dzagrb(knonv) ! 2nd Layer Thickness67 real:: T_agrb(knonv) ! 2nd Layer Temperature68 real:: roagrb(knonv) ! 2nd Layer Density69 real:: etagrb(knonv) ! 2nd Layer Water Content70 real:: G1agrb(knonv) ! 2nd Layer Dendricity/Spher.71 real:: G2agrb(knonv) ! 2nd Layer Sphericity/Size72 real:: agagrb(knonv) ! 2nd Layer Age65 INTEGER :: isagrb(knonv) ! 2nd Layer History 66 REAL :: dzagrb(knonv) ! 2nd Layer Thickness 67 REAL :: T_agrb(knonv) ! 2nd Layer Temperature 68 REAL :: roagrb(knonv) ! 2nd Layer Density 69 REAL :: etagrb(knonv) ! 2nd Layer Water Content 70 REAL :: G1agrb(knonv) ! 2nd Layer Dendricity/Spher. 71 REAL :: G2agrb(knonv) ! 2nd Layer Sphericity/Size 72 REAL :: agagrb(knonv) ! 2nd Layer Age 73 73 74 74 … … 76 76 ! + ------------ 77 77 78 integer:: isagra(knonv) ! 1st Layer History79 real:: WEagra(knonv) ! 1st Layer Height [mm w.e.]80 real:: Agreg1(knonv) ! 1. ===> Agregates81 real:: dzagra(knonv) ! 1st Layer Thickness82 real:: T_agra(knonv) ! 1st Layer Temperature83 real:: roagra(knonv) ! 1st Layer Density84 real:: etagra(knonv) ! 1st Layer Water Content85 real:: G1agra(knonv) ! 1st Layer Dendricity/Spher.86 real:: G2agra(knonv) ! 1st Layer Sphericity/Size87 real:: agagra(knonv) ! 1st Layer Age78 INTEGER :: isagra(knonv) ! 1st Layer History 79 REAL :: WEagra(knonv) ! 1st Layer Height [mm w.e.] 80 REAL :: Agreg1(knonv) ! 1. ===> Agregates 81 REAL :: dzagra(knonv) ! 1st Layer Thickness 82 REAL :: T_agra(knonv) ! 1st Layer Temperature 83 REAL :: roagra(knonv) ! 1st Layer Density 84 REAL :: etagra(knonv) ! 1st Layer Water Content 85 REAL :: G1agra(knonv) ! 1st Layer Dendricity/Spher. 86 REAL :: G2agra(knonv) ! 1st Layer Sphericity/Size 87 REAL :: agagra(knonv) ! 1st Layer Age 88 88 89 89 … … 91 91 ! + ================== 92 92 93 integer:: ikl94 integer:: nh ! Averaged Snow History95 integer:: nh__OK ! 1=>Conserve Snow History96 real:: rh !97 real:: dz ! Thickness98 real:: dzro_1 ! Thickness X Density, Lay.199 real:: dzro_2 ! Thickness X Density, Lay.2100 real:: dzro ! Thickness X Density, Aver.101 real:: ro ! Averaged Density102 real:: wn ! Averaged Water Content103 real:: tn ! Averaged Temperature104 real:: ag ! Averaged Snow Age105 real:: SameOK ! 1. => Same Type of Grains106 real:: G1same ! Averaged G1, same Grains107 real:: G2same ! Averaged G2, same Grains108 real:: typ__1 ! 1. => Lay1 Type: Dendritic109 real:: zroNEW ! dz X ro, if fresh Snow110 real:: G1_NEW ! G1, if fresh Snow111 real:: G2_NEW ! G2, if fresh Snow112 real:: zroOLD ! dz X ro, if old Snow113 real:: G1_OLD ! G1, if old Snow114 real:: G2_OLD ! G2, if old Snow115 real:: SizNEW ! Size, if fresh Snow116 real:: SphNEW ! Spheric.,if fresh Snow117 real:: SizOLD ! Size, if old Snow118 real:: SphOLD ! Spheric.,if old Snow119 real:: Siz_av ! Averaged Grain Size120 real:: Sph_av ! Averaged Grain Spher.121 real:: Den_av ! Averaged Grain Dendr.122 real:: DendOK ! 1. => Average is Dendr.123 real:: G1diff ! Averaged G1, diff. Grains124 real:: G2diff ! Averaged G2, diff. Grains125 real:: G1 ! Averaged G1126 real:: G2 ! Averaged G293 INTEGER :: ikl 94 INTEGER :: nh ! Averaged Snow History 95 INTEGER :: nh__OK ! 1=>Conserve Snow History 96 REAL :: rh ! 97 REAL :: dz ! Thickness 98 REAL :: dzro_1 ! Thickness X Density, Lay.1 99 REAL :: dzro_2 ! Thickness X Density, Lay.2 100 REAL :: dzro ! Thickness X Density, Aver. 101 REAL :: ro ! Averaged Density 102 REAL :: wn ! Averaged Water Content 103 REAL :: tn ! Averaged Temperature 104 REAL :: ag ! Averaged Snow Age 105 REAL :: SameOK ! 1. => Same Type of Grains 106 REAL :: G1same ! Averaged G1, same Grains 107 REAL :: G2same ! Averaged G2, same Grains 108 REAL :: typ__1 ! 1. => Lay1 Type: Dendritic 109 REAL :: zroNEW ! dz X ro, if fresh Snow 110 REAL :: G1_NEW ! G1, if fresh Snow 111 REAL :: G2_NEW ! G2, if fresh Snow 112 REAL :: zroOLD ! dz X ro, if old Snow 113 REAL :: G1_OLD ! G1, if old Snow 114 REAL :: G2_OLD ! G2, if old Snow 115 REAL :: SizNEW ! Size, if fresh Snow 116 REAL :: SphNEW ! Spheric.,if fresh Snow 117 REAL :: SizOLD ! Size, if old Snow 118 REAL :: SphOLD ! Spheric.,if old Snow 119 REAL :: Siz_av ! Averaged Grain Size 120 REAL :: Sph_av ! Averaged Grain Spher. 121 REAL :: Den_av ! Averaged Grain Dendr. 122 REAL :: DendOK ! 1. => Average is Dendr. 123 REAL :: G1diff ! Averaged G1, diff. Grains 124 REAL :: G2diff ! Averaged G2, diff. Grains 125 REAL :: G1 ! Averaged G1 126 REAL :: G2 ! Averaged G2 127 127 128 128 … … 236 236 237 237 238 end subroutinesisvat_zag238 END SUBROUTINE sisvat_zag
Note: See TracChangeset
for help on using the changeset viewer.
