Changeset 426


Ignore:
Timestamp:
Oct 29, 2002, 10:07:48 AM (22 years ago)
Author:
lmdz
Message:

Simple deplacement des DEALLOCATE Levan
LF

Location:
LMDZ.3.3/trunk/libf/dyn3d
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/trunk/libf/dyn3d/conf_dat2d.F

    r269 r426  
    204204      ENDIF
    205205c
    206         DEALLOCATE(champf)
    207206
    208207       DO i = 1, lons
    … …  
    213212       ENDDO
    214213
     214      DEALLOCATE(xtemp)
     215      DEALLOCATE(ytemp)
     216      DEALLOCATE(champf)
     217
    215218      RETURN
    216219      END

  • LMDZ.3.3/trunk/libf/dyn3d/conf_dat3d.F

    r259 r426  
    182182            ENDDO
    183183
    184             DEALLOCATE(xtemp)
    185184        ENDIF
    186185c
    … …  
    213212          ENDDO
    214213
    215           DEALLOCATE(ytemp)
    216214
    217215         ENDIF
    … …  
    274272          ENDDO
    275273
    276           DEALLOCATE(ztemp)
    277274
    278275      ENDIF
    … …  
    290287         ENDDO
    291288
     289      DEALLOCATE(xtemp)
     290      DEALLOCATE(ytemp)
     291      DEALLOCATE(ztemp)
     292
    292293      RETURN
    293294      END
Note: See TracChangeset for help on using the changeset viewer.