Changeset 367 for codes/icosagcm/trunk/src/etat0_dcmip3.f90

Timestamp:

01/13/16 14:38:13 (8 years ago)

Author:

dubos

Message:

Small bugfixes / improvements

File:

• codes/icosagcm/trunk/src/etat0_dcmip3.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/etat0_dcmip3.f90

@@ -37 +37 @@
           geopot(ij,l) = g*zz ! initialize geopotential for NH
        END DO
-       q(:,l,:)=0.
     END DO
     DO l=ll_begin,ll_end