Skip to content
Snippets Groups Projects
Normal view History Permalink
traadv_fct.F90 55.5 KiB
Newer Older
Guillaume Samson's avatar
Initial commit
Guillaume Samson committed
1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 
         DEALLOCATE( ztrdx, ztrdy, ztrdz )
      ENDIF
      IF( l_ptr ) THEN
         DEALLOCATE( zptry )
      ENDIF
      !
   END SUBROUTINE tra_adv_fct_lf
#endif
   !!======================================================================
END MODULE traadv_fct
Show full blame