Ignore:
Timestamp:
Dec 19, 2019, 10:14:03 PM (6 years ago)
Author:
dubos
Message:

simple_physics : cleanup + bugfix vdif.F (wrong nb of args in CALL vdif_k)

Location:
dynamico_lmdz/simple_physics/phyparam/param
Files:
1 deleted
1 edited

Legend:

Unmodified
Added
Removed

  • dynamico_lmdz/simple_physics/phyparam/param/vdif.F

    r4184 r4186  
    88      USE phys_const
    99      USE planet, ONLY : karman
     10      USE vdif_mod
    1011      IMPLICIT NONE
    1112
    … …  
    133134c
    134135      CALL vdif_cd( ngrid,pz0,g,pzlay,pu,pv,ptsrf,ph,zcdv,zcdh)
    135 c     CALL my_25(ngrid,nlay,ptimestep,g,pzlev,pzlay,pu,pv,ph,zcdv,
    136 c    a          pq2,pq2l,zkv,zkh)
    137         CALL vdif_k(ngrid,nlay,
    138      s   ptimestep,g,pzlev,pzlay,pz0,pu,pv,ph,zcdv,zkv,zkh,pq2,pq2l)
     136      CALL vdif_k(ngrid,nlay,
     137     s   ptimestep,g,pzlev,pzlay,pz0,pu,pv,ph,zcdv,zkv,zkh)
    139138
    140139      DO ig=1,ngrid
Note: See TracChangeset for help on using the changeset viewer.