Ignore:
Timestamp:
2011-09-26T10:54:50+02:00 (9 years ago)
Author:
cbricaud
Message:

cleanning, minor modifications

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_r2802_MERCATOR10_diadct/NEMOGCM/TOOLS/SECTIONS_DIADCT/src/writesections.f90

    r2849 r2858  
    5252     llok=.FALSE. 
    5353     clname='section_ijglobal.diadct' 
    54      !CALL file_open(numdctout,clname,llok) 
    5554     CALL file_open(numdctout,clname,llok,cdform="UNFORMATTED",cdstatus="REPLACE",cdaction="WRITE") 
    5655 
     
    7776             IF( secs(jsec)%nb_point .NE. 0 )THEN 
    7877                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 
    8279                   WRITE(numdctout)i1,i2 
    8380                ENDDO 
     
    8582             ENDIF 
    8683 
    87  
    88              !--------------------- 
    89              !WRITE(500,*)jsec 
    90              !WRITE(500,*)secs(jsec)%name 
    91              !WRITE(500,*)secs(jsec)%llstrpond 
    92              !WRITE(500,*)secs(jsec)%ll_ice_section 
    93              !WRITE(500,*)secs(jsec)%ll_date_line 
    94              !WRITE(500,*)secs(jsec)%coordSec 
    95              !WRITE(500,*)secs(jsec)%nb_class 
    96              !WRITE(500,*)secs(jsec)%zsigi 
    97              !WRITE(500,*)secs(jsec)%zsigp 
    98              !WRITE(500,*)secs(jsec)%zsal 
    99              !WRITE(500,*)secs(jsec)%ztem 
    100              !WRITE(500,*)secs(jsec)%zlay 
    101              !WRITE(500,*)secs(jsec)%slopeSection 
    102              !WRITE(500,*)secs(jsec)%nb_point 
    103              !IF( secs(jsec)%nb_point .NE. 0 )THEN 
    104              !   DO jseg=1,secs(jsec)%nb_point 
    105              !      point=POINT_SECTION( mig(secs(jsec)%listPoint(jseg)%I) , mjg(secs(jsec)%listPoint(jseg)%J) ) 
    106              !      WRITE(500,*)point 
    107              !   ENDDO 
    108              !   WRITE(500,*)secs(jsec)%direction(1:secs(jsec)%nb_point) 
    109              !ENDIF 
    110  
    111              !--------------------- 
    11284          ENDDO !end of loop on sections 
    11385          
Note: See TracChangeset for help on using the changeset viewer.