Changeset 121 for codes/icosagcm/trunk
- Timestamp:
- 02/01/13 00:13:46 (11 years ago)
- Location:
- codes/icosagcm/trunk/src
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/exner.f90
r50 r121 1 1 MODULE exner_mod 2 2 3 INTEGER :: caldyn_exner 4 3 5 CONTAINS 4 6 5 7 SUBROUTINE exner(f_ps,f_p,f_pks,f_pk) 6 8 USE icosa … … 43 45 REAL(rstd) :: delta 44 46 45 IF( .FALSE.) THEN ! LMD-Z style calculation of Exner pressure47 IF(caldyn_exner == 1) THEN ! LMD-Z style calculation of Exner pressure 46 48 !! Compute Alpha and Beta 47 49 -
codes/icosagcm/trunk/src/geopotential_mod.f90
r19 r121 44 44 45 45 !!! Compute geopotential 46 46 ! LMD-Z : dh=pi.dtheta-vdp => (1/rho) dp = pi.dtheta - d(h=pi.theta) = -dtheta.gradpi 47 ! g.dz = -(1/rho)dp = theta.gradpi 48 ! direct (variational) 49 ! dz = -(1/rho.g)dp, rho = RT/p = (R/C_p).theta.pi/p 50 47 51 ! for first layer 48 52 DO j=jj_begin-offset,jj_end+offset
Note: See TracChangeset
for help on using the changeset viewer.