Changeset 1339 for LMDZ4/branches


Ignore:
Timestamp:
Apr 7, 2010, 10:06:42 AM (14 years ago)
Author:
lguez
Message:

Use generic rather than specific names for intrinsic procedures.

Location:
LMDZ4/branches/LMDZ4V5.0-dev/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/inter_barxy_m.F90

    r1293 r1339  
    118118    IMPLICIT NONE
    119119
    120     REAL, intent(in):: dlonid(:)
    121     real, intent(in):: fdat(:)
    122     real, intent(in):: rlonimod(:)
     120    REAL, intent(in):: dlonid(:) ! dim(idatmax)
     121    real, intent(in):: fdat(:) ! dim(idatmax)
     122    real, intent(in):: rlonimod(:) ! dim(imodmax)
    123123
    124124    real inter_barx(size(rlonimod))
    … …  
    176176
    177177    DO idat = 1, idatmax
    178        xxd(idat) = AMOD( xxd(idat) - xim0, 360. )
     178       xxd(idat) = MOD( xxd(idat) - xim0, 360. )
    179179       fdd(idat) = fdat (idat)
    180180    ENDDO

  • LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3dpar/inter_barxy_m.F90

    r1293 r1339  
    118118    IMPLICIT NONE
    119119
    120     REAL, intent(in):: dlonid(:)
    121     real, intent(in):: fdat(:)
    122     real, intent(in):: rlonimod(:)
     120    REAL, intent(in):: dlonid(:) ! dim(idatmax)
     121    real, intent(in):: fdat(:) ! dim(idatmax)
     122    real, intent(in):: rlonimod(:) ! dim(imodmax)
    123123
    124124    real inter_barx(size(rlonimod))
    … …  
    176176
    177177    DO idat = 1, idatmax
    178        xxd(idat) = AMOD( xxd(idat) - xim0, 360. )
     178       xxd(idat) = MOD( xxd(idat) - xim0, 360. )
    179179       fdd(idat) = fdat (idat)
    180180    ENDDO
Note: See TracChangeset for help on using the changeset viewer.