Changeset 3620 for palm/trunk/SOURCE


Ignore:
Timestamp:
Dec 11, 2018 12:29:43 PM (3 years ago)
Author:
moh.hefny
Message:

fix date and time and update 3d rad_lw_out

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

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

    r3597 r3620  
    2525! -----------------
    2626! $Id$
     27! update the 3d rad_lw_out array
     28!
     29! 3597 2018-12-04 08:40:18Z maronga
    2730! Added pt_2m / theta_2m. Removed unncessary _eb strings.
    2831!
     
    17551758
    17561759    USE pegrid
     1760    USE radiation_model_mod,  ONLY:  rad_lw_out
    17571761
    17581762    IMPLICIT NONE
     
    21912195
    21922196       surf%shf(m) = - f_shf * ( surf%pt1(m) - surf%pt_surface(m) ) / c_p
     2197       ! update the 3d field of rad_lw_ou array
     2198       IF ( horizontal ) rad_lw_out(k+k_off,j+j_off,i+i_off) = surf%rad_lw_out(m)
    21932199
    21942200       IF ( humidity )  THEN
  • palm/trunk/SOURCE/radiation_model_mod.f90

    r3616 r3620  
    2828! -----------------
    2929! $Id$
     30! - fix initialization of date and time after calling zenith
     31! - fix a bug in radiation_solar_pos
     32!
     33! 3616 2018-12-10 09:44:36Z Salim
    3034! fix manipulation of time variables in radiation_presimulate_solar_pos
    3135!
     
    24412445!--       whether the sun is up
    24422446          CALL calc_zenith     
     2447          ! readjust date and time to its initial value
     2448          CALL init_date_and_time
    24432449!
    24442450!--       Calculate initial surface albedo for different surfaces
     
    26342640
    26352641       END SELECT
     2642
     2643! readjust date and time to its initial value
     2644       CALL init_date_and_time
    26362645
    26372646       RETURN
     
    80128021      DO  it = 0, CEILING(( end_time - spinup_time ) / dt_radiation)
    80138022         time_since_reference_point = REAL(it, wp) * dt_radiation
    8014          simulated_time = simulated_time + dt_spinup
     8023         simulated_time = simulated_time + dt_radiation
    80158024         CALL simulate_pos
    80168025      ENDDO
Note: See TracChangeset for help on using the changeset viewer.