Ignore:
Timestamp:
Jul 24, 2024, 4:23:34 PM (4 months ago)
Author:
abarral
Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/grid_atob_m.f90

    r5113 r5117  
    244244  WHERE(cham2tmp<0.001) cham2tmp=0.001
    245245  CALL fine2coarse(xtmp,ytmp,xmod,ymod,out,REAL(LOG(cham2tmp)))
    246   out=EXP(out)
    247   amin=MINVAL(out); amax=MAXVAL(out)
     246  out=EXP(OUT)
     247  amin=MINVAL(OUT); amax=MAXVAL(OUT)
    248248  PRINT*, 'Ecart-type du modele:', amin, amax
    249249  out=out/amax*20.0
    250   amin=MINVAL(out); amax=MAXVAL(out)
     250  amin=MINVAL(OUT); amax=MAXVAL(OUT)
    251251  PRINT*, 'Longueur de rugosite du modele:', amin, amax
    252   rugs=REAL(out)
     252  rugs=REAL(OUT)
    253253
    254254END SUBROUTINE rugsoro
Note: See TracChangeset for help on using the changeset viewer.