Changeset 71

Timestamp:

08/02/12 20:43:19 (12 years ago)

Author:

dubos

Message:

Minor change in etat0_dcmip2.f90

File:

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

codes/icosagcm/trunk/src/etat0_dcmip2.f90

@@ -61 +61 @@
   SUBROUTINE compute_etat0_DCMIP2(icase, ps, phis, u, theta_rhodz,q)
     USE icosa
-    USE dcmip_initial_conditions_test_1_2_3
     USE disvert_ncar_mod, ONLY : ap,bp
     USE pression_mod
@@ -111 +110 @@
       
       SUBROUTINE comp_all(xyz, psj,phisj,tempj, ulonj,ulatj)
+        USE dcmip_initial_conditions_test_1_2_3
         REAL(rstd), INTENT(IN) :: xyz(3)
         REAL(rstd), INTENT(OUT) :: psj,phisj,tempj,ulonj,ulatj