Changeset 625 for trunk/LMDZ.MARS/libf


Ignore:
Timestamp:
Apr 17, 2012, 4:49:13 PM (13 years ago)
Author:
acolaitis
Message:

Sorry forgot the special case of co2 for tendancies definition.. corrected

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/calltherm_interface.F90

    r624 r625  
    368368           if(qtransport_thermals) then
    369369              if(tracer) then
    370                   pdq_th(:,:,:)=d_q_ajs(:,:,:)/ptimestep
     370               do iq=1,nqmx
     371                if (iq .ne. ico2) then
     372                  pdq_th(:,:,iq)=d_q_ajs(:,:,iq)
     373                else
     374                  pdq_th(:,:,iq)=d_q_ajs(:,:,iq)/ptimestep
     375                endif
     376               enddo
    371377              endif
    372378           endif
Note: See TracChangeset for help on using the changeset viewer.