/[lmdze]/trunk/dyn3d/leapfrog.f
ViewVC logotype

Diff of /trunk/dyn3d/leapfrog.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 262 by guez, Wed Mar 7 13:46:18 2018 UTC revision 263 by guez, Wed Mar 7 14:41:46 2018 UTC
# Line 206  contains Line 206  contains
206                 q(:, :, :, 1))                 q(:, :, :, 1))
207         ENDIF         ENDIF
208    
209         IF (MOD(itau + 1, iecri * day_step) == 0) THEN         IF (MOD(itau + 1, iecri) == 0) THEN
210            CALL geopot(teta, pk, pks, phis, phi)            CALL geopot(teta, pk, pks, phis, phi)
211            CALL writehist(vcov, ucov, teta, pk, phi, q, masse, ps, itau)            CALL writehist(vcov, ucov, teta, pk, phi, q, masse, ps, &
212                   itau_w = itau_dyn + itau + 1)
213         END IF         END IF
214      end do time_integration      end do time_integration
215    
Legend:
Removed from v.262  
changed lines
  Added in v.263
  ViewVC Help
Powered by ViewVC 1.1.21