Ignore:
Timestamp:
Mar 10, 2016 11:01:04 AM (6 years ago)
Author:
maronga
Message:

added support for water and paved surfaced in land surface model / minor changes

File:
1 edited

Legend:

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

    r1758 r1788  
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Added z0q and z0q_av
    2222!
    2323! Former revisions:
     
    9797               rif_wall, shf, ts, tswst, u, u_m_l, u_m_n, u_m_r, u_m_s, us,    &
    9898               usws, uswst, v, v_m_l, v_m_n, v_m_r, v_m_s, vpt, vsws, vswst,   &
    99                w, w_m_l, w_m_n, w_m_r, w_m_s, z0, z0h
     99               w, w_m_l, w_m_n, w_m_r, w_m_s, z0, z0h, z0q
    100100
    101101    USE averaging
     
    354354!--    First compare the version numbers
    355355       READ ( 13 )  version_on_file
    356        binary_version = '4.2'
     356       binary_version = '4.3'
    357357       IF ( TRIM( version_on_file ) /= TRIM( binary_version ) )  THEN
    358358          WRITE( message_string, * ) 'version mismatch concerning data ',      &
     
    13581358                   IF ( k == 1 )  READ ( 13 )  tmp_2d
    13591359                   z0h_av(nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp)  = &
     1360                       tmp_2d(nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
     1361
     1362                CASE ( 'z0q' )
     1363                   IF ( k == 1 )  READ ( 13 )  tmp_2d
     1364                   z0q(nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp)  = &
     1365                     tmp_2d(nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
     1366
     1367                CASE ( 'z0q_av' )
     1368                   IF ( .NOT. ALLOCATED( z0q_av ) )  THEN
     1369                      ALLOCATE( z0q_av(nysg:nyng,nxlg:nxrg) )
     1370                   ENDIF
     1371                   IF ( k == 1 )  READ ( 13 )  tmp_2d
     1372                   z0q_av(nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp)  = &
    13601373                       tmp_2d(nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
    13611374
Note: See TracChangeset for help on using the changeset viewer.