Ignore:
Timestamp:
Apr 7, 2016 12:01:39 PM (5 years ago)
Author:
maronga
Message:

further modularization of radiation model and plant canopy model

File:
1 edited

Legend:

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

    r1818 r1826  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Added call to radiation model for reading of &radiation_par.
     22! Added call to plant canopy model for reading of &canopy_par.
    2223!
    2324! Former revisions:
     
    2627!
    2728! 1817 2016-04-06 15:44:20Z maronga
    28 ! Added call to land surface model for reading of &lsmpar
     29! Added call to land surface model for reading of &lsm_par
    2930!
    3031! 1804 2016-04-05 16:30:18Z maronga
     
    191192               vg
    192193
     194    USE plant_canopy_model_mod,                                                &
     195         ONLY: pcm_parin 
     196 
    193197    USE cloud_parameters,                                                      &
    194198        ONLY:  c_sedimentation, curvature_solution_effects,                    &
     
    232236        ONLY :  batch_job
    233237
     238     USE radiation_model_mod,                                                  &
     239         ONLY: radiation_parin 
     240       
    234241    USE statistics,                                                            &
    235242        ONLY:  hom, hom_sum, pr_palm, region, statistic_regions
     
    458465         
    459466!
    460 !--       Check if land surface model is used and read &lsmpar if required
     467!--       Check if land surface model is used and read &lsm_par if required
    461468          CALL lsm_parin
    462          
    463          
     469 
     470!
     471!--       Check if radiation model is used and read &radiation_par if required
     472          CALL radiation_parin
     473 
     474 
     475!--       Check if plant canopy model is used and read &canopy_par if required
     476          CALL pcm_parin
     477 
    464478!
    465479!--       Read control parameters for optionally used model software packages
Note: See TracChangeset for help on using the changeset viewer.