|
Last change
on this file since 3436 was
3175,
checked in by emillour, 11 months ago
|
|
Pluto PCM:
Add the old Pluto LMDZ for reference (required prior step to making
an LMDZ.PLUTO using the same framework as the other physics packages).
TB+EM
|
|
File size:
1.2 KB
|
| Rev | Line | |
|---|
| [3175] | 1 | Common subdirectories: /Users/tabertrand/SIMUS/simus_pluto/JWST/data_elodie/KBO_modelv13_gfortran/libf//phypluto/cooling_stock and phypluto/cooling_stock |
|---|
| 2 | diff /Users/tabertrand/SIMUS/simus_pluto/JWST/data_elodie/KBO_modelv13_gfortran/libf//phypluto/surfprop.F90 phypluto/surfprop.F90 |
|---|
| 3 | 363,369c363,369 |
|---|
| 4 | < !if (albedodat(ig).lt.0.25) then |
|---|
| 5 | < ! albedo(ig)=alb_tho_eq |
|---|
| 6 | < !else if (albedodat(ig).lt.0.40) then |
|---|
| 7 | < ! albedo(ig)=0.35 |
|---|
| 8 | < !else if (albedodat(ig).lt.0.70) then |
|---|
| 9 | < ! albedo(ig)=0.51 |
|---|
| 10 | < !endif |
|---|
| 11 | --- |
|---|
| 12 | > if (albedodat(ig).lt.0.25) then |
|---|
| 13 | > albedo(ig)=alb_tho_eq |
|---|
| 14 | > else if (albedodat(ig).lt.0.40) then |
|---|
| 15 | > albedo(ig)=0.35 |
|---|
| 16 | > else if (albedodat(ig).lt.0.70) then |
|---|
| 17 | > albedo(ig)=0.51 |
|---|
| 18 | > endif |
|---|
| 19 | diff /Users/tabertrand/SIMUS/simus_pluto/JWST/data_elodie/KBO_modelv13_gfortran/libf//phypluto/tpindex.F phypluto/tpindex.F |
|---|
| 20 | 92,93c92,93 |
|---|
| 21 | < !IF (MT.eq.1) THEN |
|---|
| 22 | < !TW=tref(1)*1.01 |
|---|
| 23 | --- |
|---|
| 24 | > IF (MT.eq.1) THEN |
|---|
| 25 | > TW=tref(1)*1.01 |
|---|
| 26 | 96c96 |
|---|
| 27 | < !ENDIF |
|---|
| 28 | --- |
|---|
| 29 | > ENDIF |
|---|
Note: See
TracBrowser
for help on using the repository browser.
