Changeset 2375 for trunk/LMDZ.TITAN/libf


Ignore:
Timestamp:
Jun 12, 2020, 10:27:56 AM (5 years ago)
Author:
jvatant
Message:

Titan GCM: Minor fix - Surface resevoir was not correctly processed in lect_start_archive

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.TITAN/libf/dynphy_lonlat/phytitan/lect_start_archive.F

    r2366 r2375  
    7373c     REAL year_day,periheli,aphelie,peri_day
    7474c     REAL obliquit,z0,emin_turb,lmixmin
    75 c     REAL emissiv,emisice(2),albedice(2)
    76 c     REAL iceradius(2) , dtemisice(2)
    7775
    7876      integer ierr
    … …  
    10051003c     write(46,*) 'emis',emis
    10061004
     1005c Surface CH4 reservoir
     1006      call interp_horiz (tankCH4old,tankCH4s,imold,jmold,iim,jjm,1,
     1007     &                   rlonuold,rlatvold,rlonu,rlatv)
     1008      call gr_dyn_fi (1,iim+1,jjm+1,ngrid,tankCH4s,tankCH4)
    10071009
    10081010
    … …  
    13731375      deallocate(tsurfold)
    13741376      deallocate(emisold)
     1377      deallocate(tankCH4old)
    13751378      deallocate(q2old)
    13761379      deallocate(tsoilold)
Note: See TracChangeset for help on using the changeset viewer.