Changeset 2858 for branches/2011/dev_r2802_MERCATOR10_diadct/NEMOGCM/TOOLS/SECTIONS_DIADCT/src/writesections.f90
- Timestamp:
- 2011-09-26T10:54:50+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_r2802_MERCATOR10_diadct/NEMOGCM/TOOLS/SECTIONS_DIADCT/src/writesections.f90
r2849 r2858 52 52 llok=.FALSE. 53 53 clname='section_ijglobal.diadct' 54 !CALL file_open(numdctout,clname,llok)55 54 CALL file_open(numdctout,clname,llok,cdform="UNFORMATTED",cdstatus="REPLACE",cdaction="WRITE") 56 55 … … 77 76 IF( secs(jsec)%nb_point .NE. 0 )THEN 78 77 DO jseg=1,secs(jsec)%nb_point 79 point=POINT_SECTION( mig(secs(jsec)%listPoint(jseg)%I) , mjg(secs(jsec)%listPoint(jseg)%J) ) 80 i1 = mig(secs(jsec)%listPoint(jseg)%I) ; i2 = mjg(secs(jsec)%listPoint(jseg)%J) 81 !WRITE(numdctout)point 78 i1 = secs(jsec)%listPoint(jseg)%I ; i2 = secs(jsec)%listPoint(jseg)%J 82 79 WRITE(numdctout)i1,i2 83 80 ENDDO … … 85 82 ENDIF 86 83 87 88 !---------------------89 !WRITE(500,*)jsec90 !WRITE(500,*)secs(jsec)%name91 !WRITE(500,*)secs(jsec)%llstrpond92 !WRITE(500,*)secs(jsec)%ll_ice_section93 !WRITE(500,*)secs(jsec)%ll_date_line94 !WRITE(500,*)secs(jsec)%coordSec95 !WRITE(500,*)secs(jsec)%nb_class96 !WRITE(500,*)secs(jsec)%zsigi97 !WRITE(500,*)secs(jsec)%zsigp98 !WRITE(500,*)secs(jsec)%zsal99 !WRITE(500,*)secs(jsec)%ztem100 !WRITE(500,*)secs(jsec)%zlay101 !WRITE(500,*)secs(jsec)%slopeSection102 !WRITE(500,*)secs(jsec)%nb_point103 !IF( secs(jsec)%nb_point .NE. 0 )THEN104 ! DO jseg=1,secs(jsec)%nb_point105 ! point=POINT_SECTION( mig(secs(jsec)%listPoint(jseg)%I) , mjg(secs(jsec)%listPoint(jseg)%J) )106 ! WRITE(500,*)point107 ! ENDDO108 ! WRITE(500,*)secs(jsec)%direction(1:secs(jsec)%nb_point)109 !ENDIF110 111 !---------------------112 84 ENDDO !end of loop on sections 113 85
Note: See TracChangeset
for help on using the changeset viewer.