Changeset 4727 for LMDZ6/branches/LMDZ_ECRad/libf/phylmd/yamada.F90
- Timestamp:
- Oct 19, 2023, 4:02:57 PM (8 months ago)
- Location:
- LMDZ6/branches/LMDZ_ECRad
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ_ECRad
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ_ECRad/libf/phylmd/yamada.F90
r2346 r4727 128 128 l0(ig) = 100. 129 129 END DO 130 DO k = 2, klev - 1130 DO k = 2, klev 131 131 DO ig = 1, ngrid 132 132 l(ig, k) = l0(ig)*kap*zlev(ig, k)/(kap*zlev(ig,k)+l0(ig)) … … 139 139 sqz(ig) = 1.E-10 140 140 END DO 141 DO k = 2, klev - 1 141 !DO k = 2, klev - 1 142 DO k = 2, klev 142 143 DO ig = 1, ngrid 143 144 q2(ig, k) = l(ig, k)**2*zz(ig, k)
Note: See TracChangeset
for help on using the changeset viewer.