Changeset 3864 for palm/trunk/SOURCE/plant_canopy_model_mod.f90
- Timestamp:
- Apr 5, 2019 9:01:56 AM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/plant_canopy_model_mod.f90
r3761 r3864 22 22 ! Current revisions: 23 23 ! ------------------ 24 ! 24 ! 25 25 ! 26 26 ! Former revisions: … … 1055 1055 DO j = nys, nyn 1056 1056 DO k = 0, leaf_area_density_f%nz - 1 1057 IF ( leaf_area_density_f%var(k,j,i) /=&1058 leaf_area_density_f%fill )&1057 IF ( leaf_area_density_f%var(k,j,i) /= & 1058 leaf_area_density_f%fill ) & 1059 1059 lad_s(k,j,i) = leaf_area_density_f%var(k,j,i) 1060 1060 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.