Ignore:
Timestamp:
Oct 8, 2014, 9:26:28 AM (10 years ago)
Author:
slebonnois
Message:

SL: update to newstart/start2archive tools in Venus+Titan / additional diagnostics in radiative fluxes for Titan

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.TITAN/libf/phytitan/cirs_haze.F90

    r1126 r1356  
    1 subroutine cirs_haze(press,wno,taeros,taeroscat)
     1subroutine cirs_haze(press,wno,taeros,taeroscat,cbar)
    22IMPLICIT NONE
    33
    44real,intent(in)   :: press,wno
    5 real,intent(inout):: taeros,taeroscat
     5real,intent(inout):: taeros,taeroscat,cbar
    66
    77!---------------------------
    … …  
    2121
    2222if (wno.eq.600.) then
    23  print*,press,wno,taeros,taeroscat
     23 print*,press,wno,taeros,taeroscat,cbar
    2424endif
    2525
Note: See TracChangeset for help on using the changeset viewer.