Changeset 23 for trunk/SOURCES/Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2-hassine.f90

Timestamp:

11/26/15 11:57:59 (8 years ago)

Author:

dumas

Message:

Modification test dans sortie_netcdf_GRISLI_mod.0.2-hassine.f90 pour compatibilité avec ifort

File:

• trunk/SOURCES/Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2-hassine.f90 (modified) (1 diff)

trunk/SOURCES/Netcdf-routines/sortie_netcdf_GRISLI_mod.0.2-hassine.f90

@@ -1030 +1030 @@
 ! pour les classe 3, sortir les champs 2D necessaires
 
-                   if (cvar_nc(l) .eq. 3 .and. fait .eqv. .FALSE.) then    
+                   if ((cvar_nc(l) .eq. 3 ).and.( fait .eqv. .FALSE.)) then    
 
                       boucle_var2: do p=1,ntab