Ignore:
Timestamp:
Oct 21, 2016 3:11:58 PM (5 years ago)
Author:
knoop
Message:

Renamed variable rho to rho_ocean, rho_init to rho_ocean_init and rho_av to rho_ocean_av

File:
1 edited

Legend:

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

    r2001 r2031  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! renamed variable rho_av to rho_ocean_av
    2323!
    2424! Former revisions:
     
    712712                   IF ( k == 1 )  READ ( 13 )  seq_random_array
    713713
    714                 CASE ( 'rho_av' )
    715                    IF ( .NOT. ALLOCATED( rho_av ) )  THEN
    716                       ALLOCATE( rho_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    717                    ENDIF
    718                    IF ( k == 1 )  READ ( 13 )  tmp_3d
    719                    rho_av(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) = &
     714                CASE ( 'rho_ocean_av' )
     715                   IF ( .NOT. ALLOCATED( rho_ocean_av ) )  THEN
     716                      ALLOCATE( rho_ocean_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     717                   ENDIF
     718                   IF ( k == 1 )  READ ( 13 )  tmp_3d
     719                   rho_ocean_av(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) = &
    720720                                tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
    721721
Note: See TracChangeset for help on using the changeset viewer.