|
Last change
on this file since 1461 was
1356,
checked in by slebonnois, 10 years ago
|
|
SL: update to newstart/start2archive tools in Venus+Titan / additional diagnostics in radiative fluxes for Titan
|
|
File size:
831 bytes
|
| Line | |
|---|
| 1 | subroutine cirs_haze(press,wno,taeros,taeroscat,cbar) |
|---|
| 2 | IMPLICIT NONE |
|---|
| 3 | |
|---|
| 4 | real,intent(in) :: press,wno |
|---|
| 5 | real,intent(inout):: taeros,taeroscat,cbar |
|---|
| 6 | |
|---|
| 7 | !--------------------------- |
|---|
| 8 | ! Attention: taeros est en m-1 |
|---|
| 9 | ! mais la valeur semble devoir etre multipliee par lambda (en m) pour |
|---|
| 10 | ! obtenir une valeur comparable a celle fournies par Sandrine... |
|---|
| 11 | ! a tirer au clair... |
|---|
| 12 | !--------------------------- |
|---|
| 13 | |
|---|
| 14 | real :: taerosold |
|---|
| 15 | logical,save :: firstcall=.true. |
|---|
| 16 | |
|---|
| 17 | if (firstcall) then |
|---|
| 18 | print*,"CIRS HAZE" |
|---|
| 19 | firstcall=.false. |
|---|
| 20 | endif |
|---|
| 21 | |
|---|
| 22 | if (wno.eq.600.) then |
|---|
| 23 | print*,press,wno,taeros,taeroscat,cbar |
|---|
| 24 | endif |
|---|
| 25 | |
|---|
| 26 | taerosold = taeros |
|---|
| 27 | |
|---|
| 28 | ! modif de taeros |
|---|
| 29 | |
|---|
| 30 | ! taeroscat est modifie proportionnellement a taeros |
|---|
| 31 | |
|---|
| 32 | if (taerosold.ne.0.) then |
|---|
| 33 | taeroscat = taeroscat/taerosold*taeros |
|---|
| 34 | endif |
|---|
| 35 | |
|---|
| 36 | ! Je maintiens le cbar du calcul microphysique |
|---|
| 37 | |
|---|
| 38 | end subroutine cirs_haze |
|---|
Note: See
TracBrowser
for help on using the repository browser.
