Changeset 4363 for palm/trunk


Ignore:
Timestamp:
Jan 7, 2020 6:11:28 PM (5 years ago)
Author:
suehring
Message:

plant-canopy model: fix misplaced endif

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/plant_canopy_model_mod.f90

    r4362 r4363  
    2727! -----------------
    2828! $Id$
     29! Fix for last commit
     30!
     31! 4362 2020-01-07 17:15:02Z suehring
    2932! Input of plant canopy variables from static driver moved to plant-canopy
    3033! model
     
    11811184
    11821185                DEALLOCATE( vars_pids )
    1183 
     1186!
     1187!--             Finally, close the input file and deallocate temporary array
     1188                CALL close_input_file( pids_id )
     1189#endif
    11841190             ENDIF
    1185 !
    1186 !--          Finally, close the input file and deallocate temporary arrays
    1187              CALL close_input_file( pids_id )
    1188 #endif
     1191
    11891192!
    11901193!--          Initialize LAD with data from file. If LAD is given in NetCDF file,
Note: See TracChangeset for help on using the changeset viewer.