- Timestamp:
- 07/21/14 12:02:38 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
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.