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

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

Location:
LMDZ6/branches/Amaury_dev/libf/obsolete
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/obsolete/regr1_conserv_m.F90

    r2788 r5086  
    9797             vt(it) = vt(it) + (xs(is + 1) - xs(is)) * vs(is)
    9898             is = is + 1
    99           end do
     99          END DO
    100100          ! 1 <= is <= ns
    101101          vt(it) = (vt(it) + mean_lin(xs(is), xt(it + 1)) * (xt(it + 1) &
    … …  
    105105       if (xs(is + 1) == xt(it + 1)) is = is + 1
    106106       ! 1 <= is <= ns .or. it == nt
    107     end do
     107    END DO
    108108
    109109  contains
    … …  
    170170             vt(it, :) = vt(it, :) + (xs(is + 1) - xs(is)) * vs(is, :)
    171171             is = is + 1
    172           end do
     172          END DO
    173173          ! 1 <= is <= ns
    174174          vt(it, :) = (vt(it, :) + mean_lin(xs(is), xt(it + 1)) * (xt(it + 1) &
    … …  
    178178       if (xs(is + 1) == xt(it + 1)) is = is + 1
    179179       ! 1 <= is <= ns .or. it == nt
    180     end do
     180    END DO
    181181
    182182  contains
    … …  
    246246             vt(it, :, :) = vt(it, :, :) + (xs(is + 1) - xs(is)) * vs(is, :, :)
    247247             is = is + 1
    248           end do
     248          END DO
    249249          ! 1 <= is <= ns
    250250          vt(it, :, :) = (vt(it, :, :) + mean_lin(xs(is), xt(it + 1)) &
    … …  
    254254       if (xs(is + 1) == xt(it + 1)) is = is + 1
    255255       ! 1 <= is <= ns .or. it == nt
    256     end do
     256    END DO
    257257
    258258  contains
    … …  
    324324                  * vs(is, :, :, :)
    325325             is = is + 1
    326           end do
     326          END DO
    327327          ! 1 <= is <= ns
    328328          vt(it, :, :, :) = (vt(it, :, :, :) + mean_lin(xs(is), xt(it + 1)) &
    … …  
    332332       if (xs(is + 1) == xt(it + 1)) is = is + 1
    333333       ! 1 <= is <= ns .or. it == nt
    334     end do
     334    END DO
    335335
    336336  contains

  • LMDZ6/branches/Amaury_dev/libf/obsolete/regr1_lint_m.F90

    r2788 r5086  
    5353       vt(it) = ((xs(is_b+1) - xt(it)) * vs(is_b) &
    5454            + (xt(it) - xs(is_b)) * vs(is_b+1)) / (xs(is_b+1) - xs(is_b))
    55     end do
     55    END DO
    5656
    5757  end function regr11_lint
    … …  
    9292       vt(it, :) = ((xs(is_b+1) - xt(it)) * vs(is_b, :) &
    9393            + (xt(it) - xs(is_b)) * vs(is_b+1, :)) / (xs(is_b+1) - xs(is_b))
    94     end do
     94    END DO
    9595
    9696  end function regr12_lint

  • LMDZ6/branches/Amaury_dev/libf/obsolete/regr1_step_av_m.F90

    r2440 r5086  
    7373          is = is + 1
    7474          left_edge = xs(is)
    75        end do
     75       END DO
    7676       ! 1 <= is <= ns
    7777       vt(it) = (vt(it) + (xt(it + 1) - left_edge) * vs(is)) &
    … …  
    7979       if (xs(is + 1) == xt(it + 1)) is = is + 1
    8080       ! 1 <= is <= ns .or. it == nt
    81     end do
     81    END DO
    8282
    8383  end function regr11_step_av
    … …  
    133133          is = is + 1
    134134          left_edge = xs(is)
    135        end do
     135       END DO
    136136       ! 1 <= is <= ns
    137137       vt(it, :) = (vt(it, :) + (xt(it + 1) - left_edge) * vs(is, :)) &
    … …  
    139139       if (xs(is + 1) == xt(it + 1)) is = is + 1
    140140       ! 1 <= is <= ns .or. it == nt
    141     end do
     141    END DO
    142142
    143143  end function regr12_step_av
    … …  
    194194          is = is + 1
    195195          left_edge = xs(is)
    196        end do
     196       END DO
    197197       ! 1 <= is <= ns
    198198       vt(it, :, :) = (vt(it, :, :) &
    … …  
    200200       if (xs(is + 1) == xt(it + 1)) is = is + 1
    201201       ! 1 <= is <= ns .or. it == nt
    202     end do
     202    END DO
    203203
    204204  end function regr13_step_av
    … …  
    256256          is = is + 1
    257257          left_edge = xs(is)
    258        end do
     258       END DO
    259259       ! 1 <= is <= ns
    260260       vt(it, :, :, :) = (vt(it, :, :, :) + (xt(it + 1) - left_edge) &
    … …  
    262262       if (xs(is + 1) == xt(it + 1)) is = is + 1
    263263       ! 1 <= is <= ns .or. it == nt
    264     end do
     264    END DO
    265265
    266266  end function regr14_step_av

  • LMDZ6/branches/Amaury_dev/libf/obsolete/regr3_lint_m.F90

    r2788 r5086  
    5353       vt(:, :, it) = ((xs(is_b+1) - xt(it)) * vs(:, :, is_b) &
    5454            + (xt(it) - xs(is_b)) * vs(:, :, is_b+1)) / (xs(is_b+1) - xs(is_b))
    55     end do
     55    END DO
    5656
    5757  end function regr33_lint
    … …  
    9494            + (xt(it) - xs(is_b)) * vs(:, :, is_b+1, :)) &
    9595            / (xs(is_b+1) - xs(is_b))
    96     end do
     96    END DO
    9797
    9898  end function regr34_lint

  • LMDZ6/branches/Amaury_dev/libf/obsolete/regr_lat_time_climoz_m.F90

    r2788 r5086  
    249249             do while (o3_in(j, 1, l, m) == missing_value)
    250250                j = j + 1
    251              end do
     251             END DO
    252252             if (j > 1) o3_in(:j-1, :, l, m) = &
    253253                  spread(o3_in(j, :, l, m), dim=1, ncopies=j-1)
    … …  
    257257             do while (o3_in(j, 1, l, m) == missing_value)
    258258                j = j - 1
    259              end do
     259             END DO
    260260             if (j < n_lat) o3_in(j+1:, :, l, m) = &
    261261                  spread(o3_in(j, :, l, m), dim=1, ncopies=n_lat-j)
    … …  
    270270                do while  (o3_in(j, k, l, m) /= missing_value .and. k < n_plev)
    271271                   k = k + 1
    272                 end do
     272                END DO
    273273                ! Replace missing values with the valid value at the
    274274                ! lowest level above missing values:
    275275                if (o3_in(j, k, l, m) == missing_value) &
    276276                     o3_in(j, k:n_plev, l, m) = o3_in(j, k-1, l, m)
    277              end do
    278           end do
     277             END DO
     278          END DO
    279279       else
    280280          print *, "regr_lat_time_climoz: field ", m, &
    281281               ", no missing value attribute"
    282282       end if
    283     end do
     283    END DO
    284284
    285285    call nf95_close(ncid_in)
    … …  
    322322       call nf95_put_var(ncid_out, varid_out(m), o3_out(nbp_lat:1:-1, :, :, m))
    323323       ! (The order of "rlatu" is inverted in the output file)
    324     end do
     324    END DO
    325325
    326326    call nf95_close(ncid_out)

  • LMDZ6/branches/Amaury_dev/libf/obsolete/regr_pr_av_m.F90

    r2788 r5086  
    9999          call handle_err("regr_pr_av nf90_get_var " // trim(name(i)), ncerr, &
    100100               ncid)
    101        end do
     101       END DO
    102102       
    103103       ! Latitudes are in ascending order in the input file while
    … …  
    118118            slopes(v2(i, :, :), press_in_edg))
    119119       ! (invert order of indices because "paprs" is in descending order)
    120     end do
     120    END DO
    121121
    122122  end subroutine regr_pr_av
Note: See TracChangeset for help on using the changeset viewer.