Changeset 528 for codes/icosagcm/devel/src/etat0_database.f90

Timestamp:

01/27/17 15:49:46 (7 years ago)

Author:

dubos

Message:

Updated devel to r517

File:

• codes/icosagcm/devel/src/etat0_database.f90 (modified) (1 diff)

codes/icosagcm/devel/src/etat0_database.f90

@@ -130 +130 @@
     DO ind=1,ndomain
       IF (.NOT. assigned_domain(ind)) CYCLE
-      f_q(ind)%rval4d(:,:,:)=0
+      f_q(ind)%rval4d(:,:,:)=1e-6
       f_q(ind)%rval4d(:,:,1)=f_q1(ind)%rval3d(:,:)*f_qsat(ind)%rval3d(:,:)*0.01
       WHERE(f_q(ind)%rval4d(:,:,1)<0) f_q(ind)%rval4d(:,:,1)=0