Changeset 243 for codes/icosagcm/branches/SATURN_DYNAMICO
- Timestamp:
- 07/21/14 12:02:38 (10 years ago)
- Location:
- codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/earth_const.f90
r234 r243 13 13 REAL(rstd),SAVE :: scale_height=8000. ! atmospheric scale height (m) 14 14 REAL(rstd),SAVE :: scale_factor=1. 15 REAL(rstd),SAVE :: gas_constant = 8.3144621 16 REAL(rstd),SAVE :: mu ! molar mass of the atmosphere 15 17 16 18 LOGICAL, SAVE :: boussinesq … … 32 34 CALL getin("scale_height",scale_height) 33 35 36 mu=kappa/cpp 34 37 boussinesq=.FALSE. 35 38 CALL getin("boussinesq",boussinesq) -
codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/physics_lmdz_generic.f90
r239 r243 42 42 USE mpi_mod 43 43 USE mpipara 44 USE disvert_mod 45 44 46 IMPLICIT NONE 45 47 INTEGER :: distrib(0:mpi_size-1) … … 49 51 REAL(rstd),ALLOCATABLE :: lonfi(:) 50 52 REAL(rstd),ALLOCATABLE :: airefi(:) 51 53 52 54 start_day=0 53 55 day_length=86400 … … 108 110 109 111 CALL init_gcm_lmdz(nbp_phys,mpi_size,distrib,latfi,lonfi,airefi) 112 CALL iniphysiq(llm,day_length,start_day,itau_physics*dt, & 113 latfi,lonfi,airefi,radius,g, gas_constant/mu, cpp, & 114 ap, bp) 115 116 110 117 111 118 END SUBROUTINE init_physics
Note: See TracChangeset
for help on using the changeset viewer.