Changeset 1671 for LMDZ5/trunk/libf/dyn3d
- Timestamp:
- Oct 24, 2012, 9:10:10 AM (12 years ago)
- Location:
- LMDZ5/trunk/libf/dyn3d
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
TabularUnified LMDZ5/trunk/libf/dyn3d/comconst.h ¶
r1505 r1671 21 21 REAL dtdiss ! (s) time step for the dissipation 22 22 REAL rad ! (m) radius of the planet 23 REAL r ! Gas constant R=8.31 J.K-1.mol-1 24 REAL cpp ! Cp 23 REAL r ! Reduced Gas constant r=R/mu 24 ! with R=8.31.. J.K-1.mol-1, mu: mol mass of atmosphere (kg/mol) 25 REAL cpp ! Specific heat Cp (J.kg-1.K-1) 25 26 REAL kappa ! kappa=R/Cp 26 27 REAL cotot -
TabularUnified LMDZ5/trunk/libf/dyn3d/gcm.F ¶
r1615 r1671 433 433 ! Physics: 434 434 #ifdef CPP_PHYS 435 CALL iniphysiq(ngridmx,llm,daysec,day_ini,dtphys/nsplit_phys , 436 , latfi,lonfi,airefi,zcufi,zcvfi,rad,g,r,cpp ) 435 CALL iniphysiq(ngridmx,llm,daysec,day_ini,dtphys/nsplit_phys, 436 & latfi,lonfi,airefi,zcufi,zcvfi,rad,g,r,cpp, 437 & iflag_phys) 437 438 #endif 438 439 call_iniphys=.false. … … 457 458 301 FORMAT('1'/,15x,'run du ', i2,'/',i2,'/',i4) 458 459 302 FORMAT('1'/,15x,' au ', i2,'/',i2,'/',i4) 459 #endif460 461 #ifdef CPP_PHYS462 ! Create start file (startphy.nc) and boundary conditions (limit.nc)463 ! for the Earth verstion464 if (iflag_phys>=100) then465 call iniaqua(ngridmx,latfi,lonfi,iflag_phys)466 endif467 460 #endif 468 461
Note: See TracChangeset
for help on using the changeset viewer.