diff /Users/tabertrand/SIMUS/simus_pluto/JWST/data_elodie/KBO_modelv13_gfortran/libf//dyn3d/newstart.F dyn3d/newstart.F
757d756
<       write(*,*) 'albedomap: read in an albedomap albedo.nc'
2242,2276d2240
< 
< c       TB23 read an albedo map
< c       -----------------------------------------------------
<         else if (modif(1:len_trim(modif)) .eq. 'albedomap') then
<            
<         ! Get field 2D
<         fichnom = 'albedo.nc'
<         ierr = NF_OPEN (fichnom, NF_NOWRITE,nid_fi_input)
<         IF (ierr.NE.NF_NOERR) THEN
<           write(6,*)' Problem opening albedo file:',fichnom
<           write(6,*)' ierr = ', ierr
<           CALL ABORT
<         ENDIF
< 
<         ierr = NF_INQ_VARID (nid_fi_input, trim("albedo"), nvarid_input)
<         IF (ierr .NE. NF_NOERR) THEN
<          PRINT*, "Could not find asked variable in albedo.nc"
<          CALL abort
<         ENDIF
< 
< #ifdef NC_DOUBLE
<         ierr = NF_GET_VAR_DOUBLE(nid_fi_input, nvarid_input,field_input)
< #else
<         ierr = NF_GET_VAR_REAL(nid_fi_input, nvarid_input,field_input)
< #endif
<         IF (ierr .NE. NF_NOERR) THEN
<          PRINT*, "Could not get asked variable in albedo.nc"
<          CALL abort
<         ELSE 
<          PRINT*, "Got variable in albedo.nc"
<         ENDIF
< 
<         DO ig=1,ngridmx
<                       albfi(ig)=field_input(ig)
<         ENDDO
Common subdirectories: /Users/tabertrand/SIMUS/simus_pluto/JWST/data_elodie/KBO_modelv13_gfortran/libf//dyn3d/poubelle and dyn3d/poubelle
Common subdirectories: /Users/tabertrand/SIMUS/simus_pluto/JWST/data_elodie/KBO_modelv13_gfortran/libf//dyn3d/startsHD and dyn3d/startsHD
Common subdirectories: /Users/tabertrand/SIMUS/simus_pluto/JWST/data_elodie/KBO_modelv13_gfortran/libf//dyn3d/stock and dyn3d/stock