Changeset 6 for trunk/SOURCES/tracebug.f90

Timestamp:

10/22/14 10:49:32 (10 years ago)

Author:

sleclech

Message:

Modification initialisation pointeurs lecture NetCDF pour compatibilité avec ifort 13

File:

• trunk/SOURCES/tracebug.f90 (modified) (1 diff)

trunk/SOURCES/tracebug.f90

@@ -27 +27 @@
 j=5
 
+write(num_tracebug,*) chaine
 
-  write(num_tracebug,901) chaine,i,j,mk_init(i,j),S(i,j),H(i,j),Bsoc(i,j),B(i,j),pvi(i,j),pvm(i,j)
+!  write(num_tracebug,901) chaine,i,j,mk_init(i,j),S(i,j),H(i,j),Bsoc(i,j),B(i,j),pvi(i,j),pvm(i,j)
 901   format(A50,' S0,S,H0,H,B0,B   ',3(i0,1x),2x, 4(f0.1,1x),2(es12.4,1x) )