Changeset 2160 for LMDZ5/branches/testing/libf/dyn3dmem/iniacademic_loc.F90
- Timestamp:
- Nov 28, 2014, 4:36:29 PM (10 years ago)
- Location:
- LMDZ5/branches/testing
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/testing
- Property svn:mergeinfo changed
/LMDZ5/trunk merged: 2072,2075-2115,2117-2126,2128-2158
- Property svn:mergeinfo changed
-
LMDZ5/branches/testing/libf/dyn3dmem/iniacademic_loc.F90
r2056 r2160 4 4 SUBROUTINE iniacademic_loc(vcov,ucov,teta,q,masse,ps,phis,time_0) 5 5 6 USE filtreg_mod, ONLY: inifilr 6 7 use exner_hyb_m, only: exner_hyb 7 8 use exner_milieu_m, only: exner_milieu 8 USE filtreg_mod9 9 USE infotrac, ONLY : nqtot 10 10 USE control_mod, ONLY: day_step,planet_type 11 USE parallel_lmdz 11 USE parallel_lmdz, ONLY: ijb_u, ije_u, ijb_v, ije_v 12 12 #ifdef CPP_IOIPSL 13 USE IOIPSL 13 USE IOIPSL, ONLY: getin 14 14 #else 15 15 ! if not using IOIPSL, we still need to use (a local version of) getin 16 USE ioipsl_getincom 16 USE ioipsl_getincom, ONLY: getin 17 17 #endif 18 18 USE Write_Field … … 41 41 ! ---------- 42 42 43 real time_0 44 45 ! variables dynamiques 46 REAL vcov(ijb_v:ije_v,llm),ucov(ijb_u:ije_u,llm) ! vents covariants 47 REAL teta(ijb_u:ije_u,llm) ! temperature potentielle 48 REAL q(ijb_u:ije_u,llm,nqtot) ! champs advectes 49 REAL ps(ijb_u:ije_u) ! pression au sol 50 REAL masse(ijb_u:ije_u,llm) ! masse d'air 51 REAL phis(ijb_u:ije_u) ! geopotentiel au sol 43 REAL,INTENT(OUT) :: time_0 44 45 ! fields 46 REAL,INTENT(OUT) :: vcov(ijb_v:ije_v,llm) ! meridional covariant wind 47 REAL,INTENT(OUT) :: ucov(ijb_u:ije_u,llm) ! zonal covariant wind 48 REAL,INTENT(OUT) :: teta(ijb_u:ije_u,llm) ! potential temperature (K) 49 REAL,INTENT(OUT) :: q(ijb_u:ije_u,llm,nqtot) ! advected tracers (.../kg_of_air) 50 REAL,INTENT(OUT) :: ps(ijb_u:ije_u) ! surface pressure (Pa) 51 REAL,INTENT(OUT) :: masse(ijb_u:ije_u,llm) ! air mass in grid cell (kg) 52 REAL,INTENT(OUT) :: phis(ijb_u:ije_u) ! surface geopotential 52 53 53 54 ! Local: … … 80 81 character(len=80) :: abort_message 81 82 83 ! Sanity check: verify that options selected by user are not incompatible 84 if ((iflag_phys==1).and. .not. read_start) then 85 write(lunout,*) trim(modname)," error: if read_start is set to ", & 86 " false then iflag_phys should not be 1" 87 write(lunout,*) "You most likely want an aquaplanet initialisation", & 88 " (iflag_phys >= 100)" 89 call abort_gcm(modname,"incompatible iflag_phys==1 and read_start==.false.",1) 90 endif 91 82 92 !----------------------------------------------------------------------- 83 93 ! 1. Initializations for Earth-like case
Note: See TracChangeset
for help on using the changeset viewer.