Changeset 197 for LMDZ.3.3/trunk
- Timestamp:
- Mar 29, 2001, 4:59:31 PM (24 years ago)
- Location:
- LMDZ.3.3/trunk/libf/phylmd
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ.3.3/trunk/libf/phylmd/indicesol.inc
r116 r197 1 INTEGER, parameter :: nbsrf=41 INTEGER, parameter :: nbsrf=4 2 2 INTEGER, parameter :: is_oce=3 !ocean 3 3 INTEGER, parameter :: is_sic = 4 ! glace de mer -
LMDZ.3.3/trunk/libf/phylmd/initphysto.F
r52 r197 133 133 . "once", t_ops, t_wrt) 134 134 135 C T 136 C 137 call histdef(fileid, 't', 'Temperature', 'K', 138 . iim, jjm+1, nhoriid, llm, 1, llm, zvertiid, 139 . 32, 'inst(X)', t_ops, t_wrt) 140 write(*,*) 'apres t ds initphysto' 135 141 C mfu 136 142 C -
LMDZ.3.3/trunk/libf/phylmd/interface_surf.F90
r175 r197 20 20 21 21 USE ioipsl 22 ! USE constantes23 22 24 23 IMPLICIT none -
LMDZ.3.3/trunk/libf/phylmd/physiq.F
r191 r197 1934 1934 call phystokenc ( 1935 1935 I nlon,nlev,pdtphys,rlon,rlat, 1936 I pmfu, pmfd, pen_u, pde_u, pen_d, pde_d,1936 I t,pmfu, pmfd, pen_u, pde_u, pen_d, pde_d, 1937 1937 I ycoefh,yu1,yv1,ftsol,pctsrf, 1938 1938 I frac_impa, frac_nucl, 1939 I pphis,paire,dtime,itap ,1940 O physid) 1939 I pphis,paire,dtime,itap) 1940 1941 1941 1942 1942 ENDIF -
LMDZ.3.3/trunk/libf/phylmd/raddim.h
r2 r197 1 1 INTEGER kdlon, kflev 2 PARAMETER (kdlon=149,kflev=klev) 2 c 3 ccc PARAMETER (kdlon=klon,kflev=klev) 4 c 5 c resolution 72 45: 6 PARAMETER (kdlon=317,kflev=klev) 7 c resolution 64 32: 8 ccc PARAMETER (kdlon=331,kflev=klev) 9 c resolution 96 49: 10 ccc PARAMETER (kdlon=461,kflev=klev) 11 c resolution 144 73: 12 ccc PARAMETER (kdlon=610,kflev=klev) 13 c resolution 96 72: 14 c PARAMETER (kdlon=487,kflev=klev) 15 c resolution 128 64: 16 ccc PARAMETER (kdlon=4033,kflev=klev)
Note: See TracChangeset
for help on using the changeset viewer.