Changeset 136 for trunk/SOURCES/steps_time_loop.f90

Timestamp:

10/13/17 18:21:01 (7 years ago)

Author:

dumas

Message:

Flux output and short netcdf output for initMIP

File:

• trunk/SOURCES/steps_time_loop.f90 (modified) (3 diffs)

trunk/SOURCES/steps_time_loop.f90

@@ -22 +22 @@
   use icetempmod
   use diagno_mod
-  use bilan_eau_mod 
+  use bilan_eau_mod
+  use bilan_flux_mod
   !  use track_debug 
 
@@ -64 +65 @@
 
      call bilan_eau
+     call bilan_flux_output
      if (isynchro.eq.1) then
          call shortoutput
@@ -72 +74 @@
          ablbord_dtt(:,:)=0.
          diff_H_2D(:,:)=0.
+         grline_dtt(:,:)=0.
       endif