source: trunk/LMDZ.PLUTO.old/libf/dyn.diff @ 3446

Last change on this file since 3446 was 3175, checked in by emillour, 10 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.8 KB
Line 
1diff /Users/tabertrand/SIMUS/simus_pluto/JWST/data_elodie/KBO_modelv13_gfortran/libf//dyn3d/newstart.F dyn3d/newstart.F
2757d756
3<       write(*,*) 'albedomap: read in an albedomap albedo.nc'
42242,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
40Common subdirectories: /Users/tabertrand/SIMUS/simus_pluto/JWST/data_elodie/KBO_modelv13_gfortran/libf//dyn3d/poubelle and dyn3d/poubelle
41Common subdirectories: /Users/tabertrand/SIMUS/simus_pluto/JWST/data_elodie/KBO_modelv13_gfortran/libf//dyn3d/startsHD and dyn3d/startsHD
42Common subdirectories: /Users/tabertrand/SIMUS/simus_pluto/JWST/data_elodie/KBO_modelv13_gfortran/libf//dyn3d/stock and dyn3d/stock
Note: See TracBrowser for help on using the repository browser.