Changeset 1424 for LMDZ4/trunk
- Timestamp:
- Sep 1, 2010, 11:20:28 AM (14 years ago)
- Location:
- LMDZ4/trunk/libf/phylmd
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/phylmd/phys_local_var_mod.F90
r1337 r1424 195 195 allocate(d_t_lif(klon,klev),d_t_ec(klon,klev)) 196 196 allocate(d_u_lif(klon,klev),d_v_lif(klon,klev)) 197 allocate(d_ts(klon, klev), d_tr(klon,klev,nbtr))197 allocate(d_ts(klon,nbsrf), d_tr(klon,klev,nbtr)) 198 198 allocate(topswad_aero(klon), solswad_aero(klon)) 199 199 allocate(topswai_aero(klon), solswai_aero(klon)) -
LMDZ4/trunk/libf/phylmd/phys_output_mod.F90
r1421 r1424 1223 1223 ENDIF 1224 1224 1225 !IM traceurs dynamiques 1226 DO nq=1,nqtot 1227 IF(nq.LT.10) THEN 1228 WRITE(solsym(nq),'(i1)') nq 1229 o_trac(nq) = ctrl_out((/ 4, 5, 1, 1, 1 /),'trac0'//TRIM(solsym(nq))) 1230 ELSE 1231 WRITE(solsym(nq),'(i2)') nq 1232 o_trac(nq) = ctrl_out((/ 4, 5, 1, 1, 1 /),'trac'//TRIM(solsym(nq))) 1233 ENDIF 1234 ENDDO 1235 ! 1236 if (nqtot>=3) THEN 1225 1226 IF (nqtot>=3) THEN 1237 1227 DO iq=3,nqtot 1238 1228 iiq=niadv(iq) 1239 CALL histdef3d (iff, o_trac(iq-2)%flag,o_trac(iq-2)%name,ttext(iiq), "-" ) 1229 o_trac(iq-2) = ctrl_out((/ 4, 5, 1, 1, 1 /),tname(iiq)) 1230 CALL histdef3d (iff, o_trac(iq-2)%flag,o_trac(iq-2)%name,'Tracer '//ttext(iiq), "-" ) 1240 1231 ENDDO 1241 endif1232 ENDIF 1242 1233 1243 1234 CALL histend(nid_files(iff))
Note: See TracChangeset
for help on using the changeset viewer.