Changeset 402 for codes/icosagcm/trunk/src/etat0_dcmip2016_supercell.f90

Timestamp:

06/08/16 02:50:01 (8 years ago)

Author:

ymipsl

Message:

bug fix when porting to gortran (mostly line size >132)

YM

File:

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

codes/icosagcm/trunk/src/etat0_dcmip2016_supercell.f90

@@ -55 +55 @@
     
     INTEGER :: l,ij
+    INTEGER,PARAMETER :: perturbation = 1
+    
     REAL(rstd) :: p,z, thetav,rho
  
@@ -60 +62 @@
     DO ij=1,ngrid
        z=0.
-       CALL supercell_z(lon(ij), lat(ij), z, ps(ij), thetav, rho, q(ij,1,1), 0)
+       CALL supercell_z(lon(ij), lat(ij), z, ps(ij), thetav, rho, q(ij,1,1), perturbation)
        DO l=ll_begin,ll_end
          p=0.5*(ap(l)+ap(l+1) + (bp(l)+bp(l+1)) * ps(ij))
-         CALL supercell_test(lon(ij),lat(ij),p,z,0,ulon(ij,l),ulat(ij,l),temp(ij,l),thetav, ps(ij),rho, q(ij,l,1),0) 
+         CALL supercell_test(lon(ij),lat(ij),p,z,0,ulon(ij,l),ulat(ij,l),temp(ij,l),thetav, ps(ij),rho, q(ij,l,1),perturbation) 
        END DO
     END DO