Changeset 1342 for LMDZ4/trunk/libf


Ignore:
Timestamp:
Apr 8, 2010, 9:18:50 AM (15 years ago)
Author:
Laurent Fairhead
Message:

Use generic rather than specific names for intrinsic procedures.

Utilisations des noms génériques pour les procédures intrinsèques

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/dyn3dpar/inter_barxy_m.F90

    r1324 r1342  
    179179
    180180    DO idat = 1, idatmax
    181        xxd(idat) = AMOD( xxd(idat) - xim0, 360. )
     181       xxd(idat) = MOD( xxd(idat) - xim0, 360. )
    182182       fdd(idat) = fdat (idat)
    183183    ENDDO
Note: See TracChangeset for help on using the changeset viewer.