Changeset 347 for codes/icosagcm/trunk/src/etat0_heldsz.f90

Timestamp:

08/01/15 15:05:27 (9 years ago)

Author:

dubos

Message:

Synced with aquaplanet branch HEAT@45 - tested with DCMIP4

File:

• codes/icosagcm/trunk/src/etat0_heldsz.f90 (modified) (2 diffs)

codes/icosagcm/trunk/src/etat0_heldsz.f90

@@ -76 +76 @@
 
        theta_eq=f_theta_eq(ind) 
-       CALL compute_Teq(lat_i,theta_eq) ! FIXME : already done by Init_Teq
+       CALL compute_Teq(lat_i,theta_eq) ! FIXME : already done by Init_Teq 
 
        ps=f_ps(ind)
@@ -90 +90 @@
        CALL compute_theta2theta_rhodz(ps,theta,theta_rhodz,1)
        q=f_q(ind)
-       q(:,:,:)=1e2
+       q(:,:,1)=1e-2
+       q(:,:,2)=0
+       q(:,:,3:)=1e-2
     ENDDO
   END SUBROUTINE etat0