| 1 | diff /Users/tabertrand/SIMUS/simus_pluto/JWST/data_elodie/KBO_modelv13_gfortran/libf//dyn3d/newstart.F dyn3d/newstart.F |
|---|
| 2 | 757d756 |
|---|
| 3 | < write(*,*) 'albedomap: read in an albedomap albedo.nc' |
|---|
| 4 | 2242,2276d2240 |
|---|
| 5 | < |
|---|
| 6 | < c TB23 read an albedo map |
|---|
| 7 | < c ----------------------------------------------------- |
|---|
| 8 | < else if (modif(1:len_trim(modif)) .eq. 'albedomap') then |
|---|
| 9 | < |
|---|
| 10 | < ! Get field 2D |
|---|
| 11 | < fichnom = 'albedo.nc' |
|---|
| 12 | < ierr = NF_OPEN (fichnom, NF_NOWRITE,nid_fi_input) |
|---|
| 13 | < IF (ierr.NE.NF_NOERR) THEN |
|---|
| 14 | < write(6,*)' Problem opening albedo file:',fichnom |
|---|
| 15 | < write(6,*)' ierr = ', ierr |
|---|
| 16 | < CALL ABORT |
|---|
| 17 | < ENDIF |
|---|
| 18 | < |
|---|
| 19 | < ierr = NF_INQ_VARID (nid_fi_input, trim("albedo"), nvarid_input) |
|---|
| 20 | < IF (ierr .NE. NF_NOERR) THEN |
|---|
| 21 | < PRINT*, "Could not find asked variable in albedo.nc" |
|---|
| 22 | < CALL abort |
|---|
| 23 | < ENDIF |
|---|
| 24 | < |
|---|
| 25 | < #ifdef NC_DOUBLE |
|---|
| 26 | < ierr = NF_GET_VAR_DOUBLE(nid_fi_input, nvarid_input,field_input) |
|---|
| 27 | < #else |
|---|
| 28 | < ierr = NF_GET_VAR_REAL(nid_fi_input, nvarid_input,field_input) |
|---|
| 29 | < #endif |
|---|
| 30 | < IF (ierr .NE. NF_NOERR) THEN |
|---|
| 31 | < PRINT*, "Could not get asked variable in albedo.nc" |
|---|
| 32 | < CALL abort |
|---|
| 33 | < ELSE |
|---|
| 34 | < PRINT*, "Got variable in albedo.nc" |
|---|
| 35 | < ENDIF |
|---|
| 36 | < |
|---|
| 37 | < DO ig=1,ngridmx |
|---|
| 38 | < albfi(ig)=field_input(ig) |
|---|
| 39 | < ENDDO |
|---|
| 40 | Common subdirectories: /Users/tabertrand/SIMUS/simus_pluto/JWST/data_elodie/KBO_modelv13_gfortran/libf//dyn3d/poubelle and dyn3d/poubelle |
|---|
| 41 | Common subdirectories: /Users/tabertrand/SIMUS/simus_pluto/JWST/data_elodie/KBO_modelv13_gfortran/libf//dyn3d/startsHD and dyn3d/startsHD |
|---|
| 42 | Common subdirectories: /Users/tabertrand/SIMUS/simus_pluto/JWST/data_elodie/KBO_modelv13_gfortran/libf//dyn3d/stock and dyn3d/stock |
|---|
