Changeset 431

Timestamp:

06/14/16 23:38:51 (8 years ago)

Author:

ymipsl

Message:

Some cleaning for supercell dcmip 2016 etat0 state

YM

File:

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

codes/icosagcm/trunk/src/etat0_dcmip2016_supercell.f90

@@ -3 +3 @@
   IMPLICIT NONE
   PRIVATE
-  
-  REAL(rstd),PARAMETER :: eta0=0.252
-  REAL(rstd),PARAMETER :: etat=0.2
-  REAL(rstd),PARAMETER :: ps0=1e5
-  REAL(rstd),PARAMETER :: u0=35
-  REAL(rstd),PARAMETER :: T0=288
-  REAL(rstd),PARAMETER :: DeltaT=4.8e5
-  REAL(rstd),PARAMETER :: Rd=287
-  REAL(rstd),PARAMETER :: Gamma=0.005
-  REAL(rstd),PARAMETER :: up0=1
-  REAL(rstd),PARAMETER :: lonc=Pi/9, latc=2*Pi/9, latw=2*Pi/9
-  REAL(rstd),PARAMETER :: pw=34000
-  REAL(rstd),PARAMETER :: q0=0.021
-  
-  INTEGER,SAVE :: testcase
-  !$OMP THREADPRIVATE(testcase)  
   
   PUBLIC getin_etat0, compute_etat0