Changes between Version 1 and Version 2 of Ticket #251, comment 1


Ignore:
Timestamp:
2016-07-08T08:55:28+02:00 (7 years ago)
Author:
ajornet
Comment:

Legend:

Unmodified
Added
Removed
Modified
  • Ticket #251, comment 1

    v1 v2  
     1Fix suggested by Agnès: 
     2 
     3{{{ 
     4       DO ji = 1, kjpindex 
     5          wtd_ns(ji,jst) = undef_sechiba ! in meters 
     6          jsl=nslm 
     7          DO WHILE ( (mc(ji,jsl,jst) .EQ. mcs(njsc(ji))) .AND. (jsl > 1) ) 
     8             wtd_ns(ji,jst) = zz(jsl)/mille ! in meters 
     9             jsl=jsl-1 
     10          ENDDO 
     11       ENDDO 
     12}}}