- Timestamp:
- 08/26/14 14:28:37 (10 years ago)
- Location:
- codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src
- Files:
-
- 1 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/etat0.f90
r260 r268 18 18 USE etat0_dcmip5_mod, ONLY : getin_etat0_dcmip5=>getin_etat0 19 19 USE etat0_williamson_mod, ONLY : getin_etat0_williamson=>getin_etat0 20 USE etat0_temperature_mod, ONLY: getin_etat0_temperature=>getin_etat0 20 21 ! Old interface 21 22 USE etat0_academic_mod, ONLY : etat0_academic=>etat0 … … 56 57 CASE ('isothermal') 57 58 CALL getin_etat0_isothermal 59 CALL etat0_collocated(f_phis,f_ps,f_mass,f_theta_rhodz,f_u, f_q) 60 CASE ('temperature_profile') 61 CALL getin_etat0_temperature 58 62 CALL etat0_collocated(f_phis,f_ps,f_mass,f_theta_rhodz,f_u, f_q) 59 63 CASE ('jablonowsky06') … … 150 154 USE etat0_dcmip5_mod, ONLY : compute_dcmip5 => compute_etat0 151 155 USE etat0_williamson_mod, ONLY : compute_w91_6 => compute_etat0 156 USE etat0_temperature_mod, ONLY: compute_etat0_temperature => compute_etat0 152 157 IMPLICIT NONE 153 158 REAL(rstd),INTENT(INOUT) :: ps(iim*jjm) … … 192 197 CALL compute_etat0_isothermal(iim*jjm, phis, ps, temp_i, ulon_i, ulat_i, q) 193 198 CALL compute_etat0_isothermal(3*iim*jjm, phis_e, ps_e, temp_e, ulon_e, ulat_e, q_e) 199 CASE ('temperature_profile') 200 CALL compute_etat0_temperature(iim*jjm, phis, ps, temp_i, ulon_i, ulat_i, q) 201 CALL compute_etat0_temperature(3*iim*jjm, phis_e, ps_e, temp_e, ulon_e, ulat_e, q_e) 194 202 CASE('jablonowsky06') 195 203 CALL compute_jablonowsky06(iim*jjm,lon_i,lat_i, phis, ps, temp_i, ulon_i, ulat_i)
Note: See TracChangeset
for help on using the changeset viewer.