Changeset 2021 for LMDZ5/trunk/libf/dyn3dmem/gcm.F
- Timestamp:
- Apr 25, 2014, 12:20:14 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3dmem/gcm.F
r1995 r2021 98 98 REAL,ALLOCATABLE,SAVE :: ps(:) ! pression au sol 99 99 c REAL p (ip1jmp1,llmp1 ) ! pression aux interfac.des couches 100 c REAL pks(ip1jmp1) ! exner au sol101 c REAL pk(ip1jmp1,llm) ! exner au milieu des couches102 c REAL pkf(ip1jmp1,llm) ! exner filt.au milieu des couches103 100 REAL,ALLOCATABLE,SAVE :: masse(:,:) ! masse d'air 104 101 REAL,ALLOCATABLE,SAVE :: phis(:) ! geopotentiel au sol … … 124 121 data call_iniphys/.true./ 125 122 126 c REAL alpha(ip1jmp1,llm),beta(ip1jmp1,llm)127 123 c+jld variables test conservation energie 128 124 c REAL ecin(ip1jmp1,llm),ecin0(ip1jmp1,llm)
Note: See TracChangeset
for help on using the changeset viewer.