Last change
on this file since 3547 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
|
Line | |
---|
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.