Changeset 559


Ignore:
Timestamp:
09/25/17 10:59:55 (7 years ago)
Author:
dubos
Message:

devel : bugfix

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/dynamics/caldyn_hevi.f90

    r558 r559  
    174174          wwuu=f_wwuu(ind) 
    175175          dps=f_dps(ind) 
    176           W_etadot=f_Wetadot(ind) 
    177176          CALL compute_caldyn_vert(u,theta,mass,convm, wflux,wwuu, dps, dtheta_rhodz, du) 
    178177          IF(.NOT.hydrostatic) THEN 
     178             W_etadot=f_Wetadot(ind) 
    179179             CALL compute_caldyn_vert_NH(mass,geopot,W,wflux, W_etadot, du,dPhi,dW) 
    180180          END IF 
Note: See TracChangeset for help on using the changeset viewer.