Changeset 1029


Ignore:
Timestamp:
06/04/20 23:09:26 (4 years ago)
Author:
dubos
Message:

devel : fix iteration number passed to physics_column

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/physics/physics.f90

    r1026 r1029  
    180180       CASE DEFAULT 
    181181          CALL transfert_request(f_ue, req_e1_vect) 
    182           CALL physics_column(it, f_phis, f_geopot, f_ps, f_theta_rhodz, f_ue, f_q) 
     182          CALL physics_column(it/itau_physics, f_phis, f_geopot, f_ps, f_theta_rhodz, f_ue, f_q) 
    183183       END SELECT 
    184184 
Note: See TracChangeset for help on using the changeset viewer.