Changeset 2056 for LMDZ5/branches/testing/libf/dyn3dpar/gcm.F
- Timestamp:
- Jun 11, 2014, 3:46:46 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: 1998,2000-2023,2025-2029,2032,2034,2036-2049,2051-2055
- Property svn:mergeinfo changed
-
LMDZ5/branches/testing/libf/dyn3dpar/gcm.F
r1999 r2056 99 99 REAL ps(ip1jmp1) ! pression au sol 100 100 c REAL p (ip1jmp1,llmp1 ) ! pression aux interfac.des couches 101 c REAL pks(ip1jmp1) ! exner au sol102 c REAL pk(ip1jmp1,llm) ! exner au milieu des couches103 c REAL pkf(ip1jmp1,llm) ! exner filt.au milieu des couches104 101 REAL masse(ip1jmp1,llm) ! masse d'air 105 102 REAL phis(ip1jmp1) ! geopotentiel au sol … … 125 122 data call_iniphys/.true./ 126 123 127 c REAL alpha(ip1jmp1,llm),beta(ip1jmp1,llm)128 124 c+jld variables test conservation energie 129 125 c REAL ecin(ip1jmp1,llm),ecin0(ip1jmp1,llm) … … 481 477 482 478 483 day_end = day_ini + nday 479 if (nday>=0) then 480 day_end = day_ini + nday 481 else 482 day_end = day_ini - nday/day_step 483 endif 484 484 485 WRITE(lunout,300)day_ini,day_end 485 486 300 FORMAT('1'/,15x,'run du jour',i7,2x,'au jour',i7//)
Note: See TracChangeset
for help on using the changeset viewer.