Changeset 22 for trunk/SOURCES/spinup_mod.f90

Timestamp:

11/25/15 20:33:43 (9 years ago)

Author:

roche

Message:

Petites adaptations diverses du code pour compilation en gfortran. Ajout d un Makefile flexible a option pour choisir ifort ou gfortran.

File:

• trunk/SOURCES/spinup_mod.f90 (modified) (2 diffs)

trunk/SOURCES/spinup_mod.f90

@@ -209 +209 @@
              coef_defmx(i,j) = 1.
              Uxbar(i,j)      = Vcol_x(i,j)
-             flgzmx(i,j)     = Vcol_x(i,j)
+             flgzmx(i,j)     = transfer(Vcol_x(i,j),flgzmx(i,j))
              uxdef(i,j)      = 0.
              Ubx(i,j)        = Vcol_x(i,j)
@@ -250 +250 @@
              coef_defmy(i,j) = 1.
              Uybar(i,j)      = Vcol_y(i,j)
-             flgzmy(i,j)     = Vcol_y(i,j)
+             flgzmy(i,j)     = transfer(Vcol_y(i,j),flgzmy(i,j))
              uydef(i,j)      = 0.
              Uby(i,j)        = Vcol_y(i,j)