--- trunk/Sources/dyn3d/gcm.f 2016/05/09 19:56:28 191 +++ trunk/Sources/dyn3d/gcm.f 2016/12/07 16:44:53 208 @@ -81,7 +81,7 @@ call init_dyn_phy ! Initialisation de la physique : - IF (iflag_phys == 1) THEN + IF (iflag_phys) THEN airephy = pack(aire_2d, dyn_phy) CALL suphec call yoethf