Changeset 402 for codes/icosagcm/trunk/src/dcmip2016_simple_physics.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/dcmip2016_simple_physics.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/dcmip2016_simple_physics.f90

@@ -484 +484 @@
             u(i,k)    = CEm(i,k)*u(i,k-1)+CFu(i,k) 
             v(i,k)    = CEm(i,k)*v(i,k-1)+CFv(i,k)
-            dtdt(i,k)  = dtdt(i,k)+((CE(i,k)*t(i,k-1)*(p0/pmid(i,k-1))**(rair/cpair)+CFt(i,k))*(pmid(i,k)/p0)**(rair/cpair)-t(i,k))/dtime 
+            dtdt(i,k)  = dtdt(i,k)+  &
+                        ((CE(i,k)*t(i,k-1)*(p0/pmid(i,k-1))**(rair/cpair)+CFt(i,k))*(pmid(i,k)/p0)**(rair/cpair)-t(i,k))/dtime 
             t(i,k)    = (CE(i,k)*t(i,k-1)*(p0/pmid(i,k-1))**(rair/cpair)+CFt(i,k))*(pmid(i,k)/p0)**(rair/cpair)
             dqdt(i,k)  = dqdt(i,k)+(CE(i,k)*q(i,k-1)+CFq(i,k)-q(i,k))/dtime