Changeset 1424 for LMDZ4/trunk


Ignore:
Timestamp:
Sep 1, 2010, 11:20:28 AM (14 years ago)
Author:
jghattas
Message:
  • Modified name of tracers in history files to their real name(from tracer.def) ; for exemple RN instead of trac01
  • Corrected allocation of d_ts.


Location:
LMDZ4/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/phylmd/phys_local_var_mod.F90

    r1337 r1424  
    195195      allocate(d_t_lif(klon,klev),d_t_ec(klon,klev))
    196196      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))
    198198      allocate(topswad_aero(klon), solswad_aero(klon))
    199199      allocate(topswai_aero(klon), solswai_aero(klon))
  • LMDZ4/trunk/libf/phylmd/phys_output_mod.F90

    r1421 r1424  
    12231223     ENDIF
    12241224
    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
    12371227     DO iq=3,nqtot 
    12381228       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), "-" )
    12401231     ENDDO
    1241     endif
     1232    ENDIF
    12421233
    12431234        CALL histend(nid_files(iff))
Note: See TracChangeset for help on using the changeset viewer.