Changeset 1340


Ignore:
Timestamp:
Apr 7, 2010, 5:07:29 PM (15 years ago)
Author:
Laurent Fairhead
Message:

Use generic rather than specific names for intrinsic procedures.
Modifications in r1334 (on Vprecip) were not propagated to physiq.F leading to a non
running program

Utilisations des noms génériques pour les procédures intrinsèques
Les modifications sur la déclaration de Vprecip dans la révision r1334 n'ont pas été
"remontées" à physiq.F d'où problème à l'exécution (en particulier sous g95)

Location:
LMDZ4/trunk/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r1323 r1340  
    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

  • LMDZ4/trunk/libf/phylmd/physiq.F

    r1334 r1340  
    573573
    574574      REAL mip(klon,klev)  ! mass flux shed by the adiab ascent at each level
    575       REAL Vprecip(klon,klev)   ! precipitation vertical profile
     575      REAL Vprecip(klon,klev+1)   ! precipitation vertical profile
    576576c
    577577      REAL wape_prescr, fip_prescr
Note: See TracChangeset for help on using the changeset viewer.