Ignore:
Timestamp:
Jul 19, 2024, 7:54:50 PM (4 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/dteta1.F

    r2603 r5086  
    3232c
    3333
    34       DO 5 l = 1,llm
     34      DO l = 1,llm
    3535
    36       DO 1  ij = iip2, ip1jm - 1
     36      DO ij = iip2, ip1jm - 1
    3737      hbxu(ij,l) = pbaru(ij,l) * 0.5 * ( teta(ij,l) + teta(ij+1,l) )
    38    1  CONTINUE
     38      END DO
    3939
    4040c    .... correction pour  hbxu(iip1,j,l)  .....
    … …  
    4242
    4343CDIR$ IVDEP
    44       DO 2 ij = iip1+ iip1, ip1jm, iip1
     44      DO ij = iip1+ iip1, ip1jm, iip1
    4545      hbxu( ij, l ) = hbxu( ij - iim, l )
    46    2  CONTINUE
     46      END DO
    4747
    4848
    49       DO 3 ij = 1,ip1jm
     49      DO ij = 1,ip1jm
    5050      hbyv(ij,l)= pbarv(ij, l)* 0.5 * ( teta(ij, l)+ teta(ij +iip1,l) )
    51    3  CONTINUE
     51      END DO
    5252
    53    5  CONTINUE
     53      END DO
    5454
    5555
Note: See TracChangeset for help on using the changeset viewer.