Ignore:
Timestamp:
Jul 19, 2024, 7:54:50 PM (2 months ago)
Author:
abarral
Message:

convert labeled do (f77) to do .. end do

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dyn3d/iniinterp_horiz.F

    r5082 r5086  
    7474         a(i) = rlonuo(i-1)
    7575         b(i) =  rlonuo(i)
    76       end do
     76      END DO
    7777
    7878      d(1) = pi/2
    … …  
    8080         c(j) = rlatvo(j)
    8181         d(j+1) = rlatvo(j)
    82       end do
     82      END DO
    8383      c(jmo+1) = -pi/2
    8484     
    … …  
    9191         an(i) = rlonun(i-1)
    9292         bn(i) =  rlonun(i)
    93       end do
     93      END DO
    9494
    9595      dn(1) = pi/2
    … …  
    9797         cn(j) = rlatvn(j)
    9898         dn(j+1) = rlatvn(j)
    99       end do
     99      END DO
    100100      cn(jmn+1) = -pi/2
    101101
    … …  
    105105        do jj = 1,jmn+1
    106106               airen(ii,jj) = (bn(ii)-an(ii))*(sin(dn(jj))-sin(cn(jj)))
    107         end do
    108       end do
     107        END DO
     108      END DO
    109109
    110110c Calcul de la surface des intersections
    … …  
    151151                      intersec(ktotal)=(bb-aa)*(sin(dd)-sin(cc))
    152152                     end if
    153                 end do
    154                end do
     153                END DO
     154               END DO
    155155             end if
    156          end do
    157        end do       
     156         END DO
     157       END DO
    158158
    159159
Note: See TracChangeset for help on using the changeset viewer.