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.