Changeset 607 for codes/icosagcm/trunk/src/initial

Timestamp:

11/19/17 00:18:39 (6 years ago)

Author:

dubos

Message:

trunk : added AAM_tot to detailed AAM budget

File:

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

codes/icosagcm/trunk/src/initial/etat0_heldsz.f90

@@ -245 +245 @@
           DO i=ii_begin-1,ii_end+1
              ij=(j-1)*iim+i
-             theta(ij,l)=theta(ij,l) - dt*(theta(ij,l)-theta_eq(ij,l))* &
+             theta(ij,l)=theta(ij,l) - itau_physics*dt*(theta(ij,l)-theta_eq(ij,l))* &
                   (knewt_g+knewt_t(l)*COS(lat(ij))**4 )
           ENDDO
@@ -253 +253 @@
 
     Do l=1,llm
-       u(:,l)=u(:,l)*(1.-dt*kfrict(l))
+       u(:,l)=u(:,l)*(1.-itau_physics*dt*kfrict(l))
     END DO