Ignore:
Timestamp:
Aug 9, 2012 8:28:32 AM (9 years ago)
Author:
fricke
Message:

merge fricke branch back into trunk

Location:
palm/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk

  • palm/trunk/SOURCE

  • palm/trunk/SOURCE/read_3d_binary.f90

    r777 r978  
    44! Current revisions:
    55! -----------------
     6! +z0h, z0h_av
    67!
    78! Former revisions:
     
    963964                       tmp_2d(nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
    964965
     966                CASE ( 'z0h' )
     967                   IF ( k == 1 )  READ ( 13 )  tmp_2d
     968                   z0h(nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp)  = &
     969                     tmp_2d(nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
     970
     971                CASE ( 'z0h_av' )
     972                   IF ( .NOT. ALLOCATED( z0h_av ) )  THEN
     973                      ALLOCATE( z0h_av(nysg:nyng,nxlg:nxrg) )
     974                   ENDIF
     975                   IF ( k == 1 )  READ ( 13 )  tmp_2d
     976                   z0h_av(nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp)  = &
     977                       tmp_2d(nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
     978
    965979                CASE DEFAULT
    966980                   WRITE( message_string, * ) 'unknown field named "', &
Note: See TracChangeset for help on using the changeset viewer.