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/eqn_state_seawater.f90

    r2001 r2031  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! renamed variable rho to rho_ocean
    2323!
    2424! Former revisions:
     
    115115
    116116       USE arrays_3d,                                                          &
    117            ONLY:  hyp, prho, pt_p, rho, sa_p
     117           ONLY:  hyp, prho, pt_p, rho_ocean, sa_p
    118118       USE indices,                                                            &
    119119           ONLY:  nxl, nxr, nyn, nys, nzb_s_inner, nzt
     
    181181!
    182182!--             In-situ density
    183                 rho(k,j,i) = pnom / pden
     183                rho_ocean(k,j,i) = pnom / pden
    184184
    185185             ENDDO
     
    188188             prho(nzt+1,j,i)            = prho(nzt,j,i)
    189189             prho(nzb_s_inner(j,i),j,i) = prho(nzb_s_inner(j,i)+1,j,i)
    190              rho(nzt+1,j,i)             = rho(nzt,j,i)
    191              rho(nzb_s_inner(j,i),j,i)  = rho(nzb_s_inner(j,i)+1,j,i)
     190             rho_ocean(nzt+1,j,i)             = rho_ocean(nzt,j,i)
     191             rho_ocean(nzb_s_inner(j,i),j,i)  = rho_ocean(nzb_s_inner(j,i)+1,j,i)
    192192
    193193          ENDDO
     
    205205
    206206       USE arrays_3d,                                                          &
    207            ONLY:  hyp, prho, pt_p, rho, sa_p
     207           ONLY:  hyp, prho, pt_p, rho_ocean, sa_p
    208208           
    209209       USE indices,                                                            &
     
    255255!
    256256!--       In-situ density
    257           rho(k,j,i) = pnom / pden
     257          rho_ocean(k,j,i) = pnom / pden
    258258
    259259
     
    264264       prho(nzt+1,j,i)            = prho(nzt,j,i)
    265265       prho(nzb_s_inner(j,i),j,i) = prho(nzb_s_inner(j,i)+1,j,i)
    266        rho(nzt+1,j,i)             = rho(nzt,j,i)
    267        rho(nzb_s_inner(j,i),j,i)  = rho(nzb_s_inner(j,i)+1,j,i)
     266       rho_ocean(nzt+1,j,i)             = rho_ocean(nzt,j,i)
     267       rho_ocean(nzb_s_inner(j,i),j,i)  = rho_ocean(nzb_s_inner(j,i)+1,j,i)
    268268
    269269    END SUBROUTINE eqn_state_seawater_ij
Note: See TracChangeset for help on using the changeset viewer.