Ignore:
Timestamp:
Nov 29, 2018 7:16:36 PM (3 years ago)
Author:
suehring
Message:

Merge branch salsa with trunk

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE

  • palm/trunk/SOURCE/netcdf_interface_mod.f90

    r3569 r3582  
    2020! Current revisions:
    2121! ------------------
    22 !
     22! Move the control parameter "salsa" from salsa_mod to control_parameters
     23! (M. Kurppa)
    2324!
    2425! Former revisions:
     
    646647               message_string, mid, ntdim_2d_xy, ntdim_2d_xz,                  &
    647648               ntdim_2d_yz, ntdim_3d, nz_do3d, ocean_mode, plant_canopy,       &
    648                run_description_header, section, simulated_time,                &
     649               run_description_header, salsa, section, simulated_time,         &
    649650               simulated_time_at_begin, skip_time_data_output_av,              &
    650651               skip_time_do2d_xy, skip_time_do2d_xz, skip_time_do2d_yz,        &
     
    684685     
    685686    USE salsa_mod,                                                             &
    686         ONLY:  salsa, salsa_define_netcdf_grid            
     687        ONLY:  salsa_define_netcdf_grid           
    687688
    688689    USE spectra_mod,                                                           &
     
    11471148                      CALL salsa_define_netcdf_grid( domask(mid,av,i), found,  &
    11481149                                                     grid_x, grid_y, grid_z )
    1149                    ENDIF                 
     1150                   ENDIF                                   
    11501151!
    11511152!--                Now check for user-defined quantities
     
    19101911                                                     grid_y, grid_z )
    19111912                   ENDIF                 
    1912                    
     1913!                   
    19131914!--                Check for user-defined quantities
    19141915                   IF ( .NOT. found )  THEN
     
    28562857                                                         grid_z )
    28572858                         ENDIF
    2858                          
     2859
    28592860!
    28602861!--                      Check for SALSA quantities
     
    37583759                                                            grid_z )
    37593760                      ENDIF
    3760                      
    37613761!
    37623762!--                   Check for SALSA quantities
     
    46184618                                                            grid_z )
    46194619                      ENDIF
    4620                      
    46214620!
    46224621!--                   Check for SALSA quantities
Note: See TracChangeset for help on using the changeset viewer.