Changeset 1010


Ignore:
Timestamp:
01/21/20 00:14:46 (4 years ago)
Author:
dubos
Message:

devel : missing initialization in dissip_gcm

File:
1 edited

Legend:

Unmodified
Added
Removed

  • codes/icosagcm/devel/src/dissip/dissip_gcm.f90

    r971 r1010  
    893893    INTEGER :: ind, i,j,ij 
    894894    REAL(rstd) :: max_scalar, dthetamax 
     895    dthetamax = 0. 
    895896    DO ind=1,ndomain 
    896897       IF (.NOT. assigned_domain(ind) .OR. .NOT. is_omp_level_master) CYCLE 
Note: See TracChangeset for help on using the changeset viewer.